\/<J d*^ 


(T / ^ 






ORG 

OOOH 

H17T 

EQU 

0 

H37T 

EQU 

0 

H47T 

EQU 

1 

H67T 

EQU 

1 


:(c :|c :|c 4c 3|c :|c # # 9|e 9|c 3ic # ♦ 9|c * 4c 


♦♦♦NOTE*** 

THE ABOVE 5 LINES OF CODE ARE THE PREAMBLE TO THE BIOS. 

THESE LINES ARE USED BY 'MAKEBIOS* IN GENERATING THE BIOS. 
THESE LINES SHOULD NOT BE ALTERED FOR ANY REASON UNLESS THE 
PROGRAM 'MAKEBIOS* IS ALSO ALTERED. THESE LINES MUST APPEAR 
AS THE FIRST 5 LINES IN THIS SOURCE. 

4c4c4e4c4c9|c4c4c4c4c4e4c4c4c4c4c4c4c4e4c 


VERS 

EQU 

03 

LEVEL 

EQU 

1 

MONTH 

EQU 

08 

DAY 

EQU 

18 

YEAR 

EQU 

83 


. 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 

• 

; BIOS2, A BIOS MODULE FOR CP/M 2.2 

; FOR USE WITH HEATH/ZENITH H/Z89 AND H-8 COMPUTERS 
; AND H17/H77/H87 5 1/4 INCH DISKS 

; AND H47/Z47 8 INCH DISKS 

; AND H37 5 1/4 INCH DISKS 

: AND H67 HARD DISK WITH 8 INCH FLOPPY 

;"^^:^YRIGHT 1980,1981 HEATH COMPANY, BENTON HARBOR, MICHIGAN 

; HEATH/ZENITH SOFTWARE GROUP 

; HILLTOP ROAD 

} SAINT JOSEPH, MICHIGAN 

• 

; 80 TRACK HI 7 MODS BY: 

; LIVINGSTON LOGIC LABS 

; P. 0. BOX 5334 

; PASADENA, CAL. 91107 

• 

• 1-JAN-82 

• XEBEC HARD DISK MODS BY: 

; LIVINGSTON LOGIC 

; POST OFFICE BOX 5334 

; PASADENA, CALIFORNIA 91107 

• 

• 26-JUL-83 

• 

9 

. 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 

XEBT EQU H67T 

'false EQU 0 

TRUE EQU 1 

IF TRUE-1 

%: TRUE NE 1 

ENDIF 

IF (H17T+H37T-I-H47T+XEBT-1 ) SHR 15 

%: NO DISK DRIVE TYPES SPECIFIED 

ENDIF . * 

IF (2-(Hl7T+H37T+H47T+XEBT)) SHR 15 

%: TOO MANY DISK DRIVE TYPES SPECIFIED 

ENDIF 

.. .trurvr*.,. mntlK*.AKTTX -'y'T?'0'Cn _ __ . . . . ,, ^ __ 




XEBPART2 EQU TRUE AND PARTITN 

TOD EQU FALSE 

EVENT EQU FALSE 

INTINP EQU TRUE 

BRKKEY EQU TRUE AND INTINP 

H37ED EQU TRUE AND H37T 

H47ED EQU TRUE AND H47T 

H17ND EQU 3*H17T 

H37ND EQU 3*H37T 

H47ND EQU 2»H47T 

XEBND EQU 2*XEBT 

BIOS EQU $ 

BDOS EQU BIOS-OEOOH 

CCP EQU BDOS-0800H 

CCPCLR EQU CCP+3 

BOOT EQU OOOOH 





D$E$WRP 

EQU 

D$E$UNR 

EQU 

H47CTL 

EQU 

H47DAT 

EQU 

DSTR 

EQU 

DSIE 

EQU 

DSDONE 

EQU 

DSERR 

EQU 

DCIE 

EQU 

DCRES 

EQU 

DRS 

EQU 

DRAS 

EQU 

DSNS 

EQU 

DRD 

EQU 

DWR 

EQU 

DCOPY 

EQU 

DFMT 

EQU 

DFMTD 

EQU 

DFMTD2 

EQU 

FD$BASE 

EQU 

FD$CON 

EQU 

FD$INT 

EQU 

FD$CMD 

EQU 

FD$STA 

EQU 

FD$DAT 

EQU 

FD$SEC 

EQU 

FD$TRK 

EQU 

FD$CD 

EQU 

FD$TS 

EQU 

FDCRST 

EQU 

FDCSEK 

EQU 

FDCSTP 

EQU 

FDCSTI 

EQU 

FDCSTO 

EQU 

FDCRDS 

EQU 

FDCWRS 

EQU 

FDCRDA 

EQU 

FDCRDT 

EQU 

FDCWRT 

EQU 

FDCFI 

EQU 

FDFUTR 

EQU 

FDFHLB 

EQU 

FDFVRF 

EQU 

FDFS6 

EQU 

FDFS12 

EQU 

FDFS20 

EQU 

FDFS30 

EQU 

FDFMRF 

EQU 

FDFSLF 

EQU 

FDFDLF 

EQU 

FDFSS1 

EQU 

FDFDDM 

EQU 

FDFINI 

EQU 

FDFIIO 

EQU 

FDFII1 

EQU 

FDFII2 

EQU 

FDFII3 

EQU 

FDSNRD 

EQU 

FDSWPV 

EQU 

FDSHLD 

EQU 

FDSRTE 

EQU 

FDSWTF 

EQU 

FDSSEK 

EQU 

FDSRNF 

EQU 

FDSCRC 

EQU 

FDSTKO 

EQU 


040H 

080H 

0 

1 

10000000B 

01000000B 

00100000B 

00000001B 

01000000B 

00000010B 

01H 

02H 

OSH 

07H 

OSH 

OBH 

ODH 

OEH 

OFH 

078H 

FD$BASE 

FD$BASE+1 

FD$BASE+2 

FD$BASE+2 

FD$BASE+3 

FD$BASE+2 

FD$BASE+3 

0 

1 

OOOH 
01 OH 
020H 
040H 
060H 
080H 
OAOH 
OCOH 
OEOH 
OFOH 
ODOH 

00010000B 
00001000B 
000001OOB 
OOOOOOOOB 
00000001B 
00000010B 
00000011B 
00010000B 
00001000B 
000001OOB 
00000010B 
00000001B 
OOOOOOOOB 
00000001B 
00000010B 
000001OOB 
00001000B 
10000000B 
01000000B 
00100000B 
00100000B 
001OOOOOB 
00010000B 
00010000B 
00001OOOB 
000001OOB 



FDSLDT 

EQU 

FDSIND 

EQU 

FDSBSY 

EQU 

FDRATRK 

EQU 

FDRASID 

EQU 

FDRASEC 

EQU 

FDRASL 

EQU 

FDRACRC 

EQU 

FDRAL 

EQU 

FDSL128 

EQU 

FDSL256 

EQU 

FDSL51 2 

EQU 

FDSL1K 

EQU 

CONIRQ 

EQU 

CONDRQ 

EQU 

CONMFM 

EQU 

CONMO 

EQU 

CONDSO 

EQU 

CONDS1 

EQU 

CONDS2 

EQU 

CONDS3 

EQU 

NTRKS37 

EQU 

NTRKD37 

EQU 

NSPTS37 

EQU 

NSPTD37 

EQU 

NSPTE37 

EQU 

ILFS37 

EQU 

ILFD37 

EQU 

ILFE37 

EQU 

NSBT37 

EQU 

FDHDD 

EQU 

DELAY37 

EQU 

H37VEC 

EQU 

DLYM037 

EQU 

DLYH37 

EQU 

H37CTL 

EQU 

H37IRET 

EQU 

SHUGART 

EQU 

HD$DAT 

EQU 

HD$CON 

EQU 

HD$STA 

EQU 

HD$SWI 

EQU 

HDFACKH 

EQU 

HDFSEL 

EQU 

HDFEI 

EQU 

HDFRES 

EQU 

HDFDE 

EQU 

HDBREQ 

EQU 

HDBIO 

EQU 

HDBMSG 

EQU 

HDBCMD 

EQU 

HDBBSY 

EQU 

HDBPE 

EQU 

HDBIRQ 

EQU 

HDBACK 

EQU 

HDCTDR 

EQU 

HDCRCL 

EQU 

HDCRSY 

EQU 

HDCRS 

EQU 

HDCFD 

EQU 

HDCFT 

EQU 

HDCFBS 

EQU 

HDCRD 

EQU 

HDCWPS 

EQU 

HDCWR 

EQU 

HDCSEK 

EQU 


000001OOB 
00000010B 
00000001B 
0 
1 
2 

3 

4 
6 
0 
1 
2 
3 

00000001B 

00000010B 

00000100B 

00001000B 

00010000B 

00100000B 

01000000B 

10000000B 

40 

80 

10 

16 

5 
3 
3 
3 

60 

20 

6*256+15 

8*4 

H37VEC+3 

H37VEC+4 

H37VEC+5 

H37VEC+6 

FALSE 

0 

1 

1 

2 

10000000B 

01000000B 

001OOOOOB 

00010000B 

0000001 OB 

10000000B 

01000000B 

00100000B 

00010000B 

00001OOOB 

000001OOB 

00000010B 

00000001B 

OOOH 

001H 

002H 

003H 

004H 

006H 

007H 

008H 

009H 

OOAH 

OOBH 




fS 







UV/VJH 

HDCCPY 

EQU 

020H 

HDCFDD 

EQU 

OCOH 

HDOOP 

EQU 

0 

HDOLULA EQU 

i 

HDOLUN 

EQU 

11100000B 

HD0LA2 

EQU 

00011111B 

HD0LA1 

EQU 

2 

HDOLAO 

EQU 

3 

HDONB 

EQU 

4 

HDOCON 

EQU 

5 

HD10P 

EQU 

0 

HD1LUAS 

EQU 

1 

HD1LUNS 

EQU 

111OOOOOB 

HD1LA2S 

EQU 

00011111B 

HD1LA1S 

EQU 

2 

HD1LA0S 

EQU 

3 

HD1NB 

EQU 

4 

HD1LUAD 

EQU 

5 

HD1LUND 

EQU 

moooooB 

HD1LA2D 

EQU 

00011111B 

HD1LA1D 

EQU 

6 

HD1LAOD 

EQU 

7 

HDlSPAR 

EQU 

8 

HD1CON 

EQU 

9 

HD60P 

EQU 

0 

HD6LUN 

EQU 

1 

HD6TFC 

EQU 

5 

HDFDR 

EQU 

10000000B 

HDFDDEC 

EQU 

01000000B 

HDFDEN 

EQU 

00000010B 

HDFSID 

EQU 

00000001B 

HDFLUN 

EQU 

11100000B 

HDFERR 

EQU 

00000010B 

HDFPE 

EQU 

00000001B 

HDSMBO 

EQU 

0 

HDSLBS 

EQU 

1 

HDFLBO 

EQU 

111OOOOOB 

HDFSYN 

EQU 

00001111B 

HDSSB 

EQU 

0 

HDSBAV 

EQU 

10000000B 

HDSET 

EQU 

00110000B 

HDSEC 

EQU 

00001111B 

HDSLULA 

EQU 

1 

HDSLUN 

EQU 

11100000B 

HDSLA2 

EQU 

00011111B 

HDSLA1 

EQU 

2 

HDSLAO 

EQU 

3 

HDENS 

EQU 

OOOH 

HDENIS 

EQU 

001H 

HDENSC 

EQU 

002H 

HDEWF 

EQU 

003H 

HDEDNR 

EQU 

004H 

HDEDNS 

EQU 

005H 

HDENTO 

EQU 

006H 

HDEMDS 

EQU 

007H 

HDEIR 

EQU 

01 OH 

HDEUD 

EQU 

011H 

HDEIAM 

EQU 

01 2H 

HDEDAM 

EQU 

01 3H 

HDERNF 

EQU 

’ 014H 

HDESE 

EQU 

01 5H 

HDEWP 

EQU 

01 7H 

HDECDF 

EQU 

01 8H 

HDEBBF 

EQU 

01 9H 

HDEFE 

EQU 

01AH 


TTTNTcnr/^ 




HDEIDA 
HDEIF 
r^PTJMP 
PTVER 
PVERS 
PTNUL 
PTSEK 
PTECC 
PTPCC 
PTRWC 
PTHDS 
PTCYL 
PTPTBL 
PTNAM 
I PTCAT 
I PTWP 
1 PTOFF 

1 _.PTPLEN 

MI$JMP 

H8CTL 

H8TR 

H88CTL 

MlH 

lOO ' 

CLKE 

CLKVEC 

TICCNT 

CTLPRT 

H8FLAG 

DEVCTL 

SERVEC 

NDISKS 


%: 

NSECTS 

HSTSIZ 


EQU 

021H 

EQU 

022H 

EQU 

0 

EQU 

PTJMP+3 

EQU 

'A' 

EQU 

PTVER+1 

EQU 

PTNUL+3 

EQU 

PTSEK+1 

EQU 

PTECC+1 

EQU 

PTPCC+2 

EQU 

PTRWC+2 

EQU 

PTHDS+1 

EQU 

PTCYL+2 

EQU 

0 

EQU 

PTNAM+1 0 

EQU 

PTCAT+1 

EQU 

PTWP+1 

EQU 

PTOFF+2 

EQU 

0C3H 

EQU 

OFOH 

EQU 

ODOH 

EQU 

0F2H 

EQU 

020H 

EQU 

040H 


EQU 002H 

EQU 0008H 

EQU OOOBH 

EQU OOODH 

EQU OOOEH 

EQU OOOFH 

EQU 0008H*3 

EQU H17ND+H37ND+H47ND+XEBND 

IF TRUE-1 

TRUE NE 1 
ENDIF 


IF (8-NDISKS) SHR 15 

NDISK GT 8 — DRIVE MAP ONLY 
ENDIF 


HAS 8 ENTRY SLOTS 


EQU 44 

IF (H47T AND H47ED) OR (H37T AND H37ED) 
EQU 1024 ' 
ENDIF 


HSTSIZ 

IF 

EQU 

NOT ((H47T AND H47ED) OR 
256 

BT$WM 

ENDIF 

EQU 

OFFH 

BT$CD 

EQU 

OOOH 

H85CRT 

EQU 

372Q 

H84TTY 

EQU 

ODOH 

H84CRT 

EQU 

0E8H 

H84LPT 

EQU 

OEOH 

H84RDP 

EQU 

0D8H 

B75 

EQU 

1536 

B110 

EQU 

1047 

B134 

EQU 

857 

B300 

EQU 

384 

B600 

EQU 

192 

B1200 

EQU 

96 

B2400 

EQU 

48 

B4800 

EQU 

24 

B9600 

EQU 

12 

B19200 

EQU 

6 

NULL 

EQU 

OOH 

CTLC 

EQU 

03H 

BELL 

EQU 

07H 


(H37T AND H37ED)) 


/^n 


TTI/^TT 


ArVTT 





ODn 

LF 

EQU 

OAH 

PADCH 

EQU 

CR 

TTY 

EQU 

0 

CRT 

EQU 

1 

PTR 

EQU 

1 

PTP 

EQU 

1 

BAT 

EQU 

2 

UR1 

EQU 

2 

UP1 

EQU 

2 

LPT 

EQU 

2 

UC1 

EQU 

3 

UR2 

EQU 

3 

UP 2 

EQU 

3 

ULl 

EQU 

3 

DIOB 

EQU 

(CRT) OR ( 

DDSEL 

EQU 

0 

DDRD 

EQU 

3 

DDWR 

EQU 

6 

DDRES 

EQU 

9 

DDMNT 

EQU 

12 

DPEXLT 

EQU 

0 

DPEDPB 

EQU 

10 

DPEHTH 

EQU 

16 

DPEL 

EQU 

24 

DPEFLAG 

EQU 

DPEHTH+0 

DPETYPE 

EQU 

11100000B 

DPENE 

EQU 

OOOOOOOOB 

DPEH17 

EQU 

01000000B 

DPEH37 

EQU 

01TOOOOOB 

DPEH47 

EQU 

10000000B 

DPEXEB 

EQU 

11000000B 

DPEP7C 

EQU 

00010000B 

DPE48RO 

EQU 

00010000B 

DPE96T 

EQU 

00001000B 

DPEASGN 

EQU 

000001OOB 

DPEED 

EQU 

000001OOB 

DPEDD 

EQU 

0000001 OB 

DPE2S 

EQU 

00000001B 

DPEUNIT 

EQU 

DPEHTH+1 

DPERPS 

EQU 

DPEHTH+2 

DPERPAB 

EQU 

DPEHTH+3 

DPETRK 

EQU 

DPEHTH+4 

DPEUNK 

EQU 

10000000B 

DPESEK 

EQU 

DPEHTH+5 

DPEMO 

EQU 

10000000B 

DPEUPB 

EQU 

DPEHTH+6 

DPEFLG2 

EQU 

DPEHTH+6 

DPEIMG 

EQU 

00000010B 

DPE96TM 

EQU ' 

00000001B 

DPELUN 

EQU 

DPEHTH+7 

DPEHL 

EQU 

8 

DPBSPT 

EQU 

0 

DPBBSH 

EQU 

DPBSPT+2 

DPBBLM 

EQU 

DPBSPT+3 

DPBEXM 

EQU 

DPBSPT+4 

DPBDSM 

EQU 

DPBSPT+5 

DPBDRM 

EQU 

DPBSPT+7 

DPBALO 

EQU 

DPBSPT+9 

DPBAL1 

EQU 

DPBSPT+10 

DPBCKS 

EQU 

DPBSPT+11 

DPBOFF 

EQU 

DPBSPT+13 

DPBL 

EQU 

15 

LABVER 

EQU 

0 

LABBUF 

EQU 

0 

nn'fVDT? 

T^OTT 

T.ABRUF + 3 


(UR1 SHL 2) OR (UP1 SHL 4) OR (LPT SHL 




LABEL 

EQU 

LABBUF+4 

LABTYP 

EQU 

LABEL+0 

LABHTH 

EQU 

LABTYP+1 

LABDPB 

EQU 

LABHTH+DPEHL 

LABCS 

EQU 

LABDPB+DPBL 

LABLEN 

EQU 

LABCS-LABEL+1 

SBC$SBC 

EQU 

0 

SBC$JMP 

EQU 

OOOOH 

SBC$VER 

EQU 

0003H 

SBC$REV 

EQU 

0004H 

SBC$DBS 

EQU 

0005H 

SBC$BSA 

EQU 

001 8H 

SBC$BSB 

EQU 

001BH 

SBC$SBA 

EQU 

001 EH 

SBC$SBB 

EQU 

0021H 

SBC$SSZ 

EQU 

0024H 

SBC$SPT 

EQU 

0026H 

SBC$TPC 

EQU 

0028H 

SBC$CPV 

EQU 

002AH 

SBC$SPS 

EQU 

002CH 

SBC$VSZ 

EQU 

002EH 

SBC$NSL 

EQU 

0031H 

SBC$CSA 

EQU 

0032H 

SBC$CSB 

EQU 

0034H 

SBC$CBA 

EQU 

0036H 

SBC$CBB 

EQU 

0038H 

SBC$LEN 

EQU 

0080H 

SPB$OSD 

EQU 

0 

SPB$PAT 

EQU 

1 

SPB$OSL 

EQU 

16 

SPB$OSN 

EQU 

16 

SPB$OSI 

EQU 

0 

SPB$OSM 

EQU 

00011111B 

SPB$UAR 

EQU 

00011110B 

SPB$EOL 

EQU 

SPB$OSM 

SPB$FSN 

EQU 

1 

SPB$PEL 

EQU 

4 

SBC$BEL 

EQU 

3 


JMP 

CBOOT 

WBOOTE: 

JMP 

WBOOT 


JMP 

CONST 


JMP 

CONIN 


JMP 

CONOUT 


JMP 

LIST 


JMP 

PUNCH 


JMP 

READER 


JMP 

HOME 


JMP 

SETDSK 


JMP 

SETTRK 


JMP 

SETSEC 


JMP 

SETDMA 


JMP 

READ 


JMP 

WRITE 


JMP 

LISTST 


JMP 

SECTRAN 

BIOSVER 

DB 

VERS 

DEFIOB 

DB 

DIOB 

PRTRDY 

DB 

01 OH 

MODE 

DB 

PARTITN*MODEB3+MODEB7 

MODEBO 

EQU 

00000001B 

MODEB1 

EQU 

00000010B 

MODEB2 

EQU 

000001OOB 

MODEB3 

EQU 

00001000B 

MODEB5 

EQU 

00100000B 

MODEB6 

EQU 

01000000B 

MnnRB7 

KOIJ 

10000000B 




H84PT1: DB 

H84CRT 

CRTBAUD DW 

B9600+8000H 

H84PT2: DB 

H84TTY 

TTYBAUD:DW 

B300 

H84PT3: DB 

H84LPT 

LPTBAUD:DW 

B4800 

H84PT4: DB 

H84RDP 

RDPBAUDSDW 

B300 

ALTPRT; DB 

0A8H 

XEPARTO;DB 

(16*(DPEXE$0-DPBASE)/DPEL)+0 

XEPART1:DB 

(16*(DPEXE$1-DPBASE)/DPEL)+1 

BSIZE DB 

(BIOSEND-BIOS+255)/256 

BEND DW 

BIOSEND 

SECNT17 DW 

0 

SECNT37 DW 

0 

BNDISKS DB 

NDISKS 

DPBASE DS 

0 

IF 

H1 7T 

DPEO: DW 

XLT17,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPB17S 

DW 

CSV0,ALV0 

DB 

DPEH17 

DB 

UO 

DB 

2 

DB 

8 

DB 

OFFH 

DB 

STEPR 

DB 

0 

DB 

0 

DPE1: DW 

XLT17,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPB17S 

DW 

CSV1,ALV1 

DB 

DPEH17 

DB 

U1 

DB 

2 

DB 

8 

DB 

OFFH 

DB 

STEPR 

DB 

0 

DB 

0 

DPE2: DW 

XLT17,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPB17S 

DW 

CSV2,ALV2 

DB 

DPEH17 

DB 

U2 

DB 

2 

DB 

8 

DB 

OFFH 

DB 

STEPR 

DB 

0 

DB 

0 

ENDIF 


IF 

H37T 

DPE37$0 DW 

0000H,0000H 

DW 

OOOOH^OOOOH 

DW 

DIRBUF,DPB37$0 

DW 

CSV37$0,ALV37$0 

DB 

DPEH37+DPEDD 

DB 

CONDSO 

DB 

2 

DB 

8 

DB 

DPEUNK 

DB 

FDFS30 




DB 

0 

DPE37$1 DW 

OOOOH^OOOOH 

DW 

0000H,0000H 

DW 

DIRBUF,DPB37$1 

DW 

CSV37$1,ALV37$1 

DB 

DPEH37+DPEDD 

DB 

CONDS1 

DB 

2 

DB 

8 

DB 

DPEUNK 

DB 

FDFS30 

DB 

0 

DB 

0 

DPE37$2 DW 

0000H,0000H 

DW 

OOOOH,OOOOH 

DW 

DIRBUF,DPB37$2 

DW 

CSV37$2,ALV37$2 

DB 

DPEH37+DPEDD 

DB 

CONDS2 

DB 

2 

DB 

8 

DB 

DPEUNK 

DB 

FDFS30 

DB 

0 

DB 

0 

ENDIF 

IF 

H47T 

DPE47$0 DW 

XLT0S,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPBOSS 

DW 

CSV47$0,ALV47$0 

DB 

DPEH47 

DB 

OOOH 

DB 

1 

DB 

8 

DB 

0,0,0,0 

DPE47$1 DW 

XLT0S,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPB0SS 

DW 

CSV47$1,ALV47$1 

DB 

DPEH47 

DB 

020H 

DB 

1 

DB 

8 

DB 

o 

o 

o 

o 

ENDIF 

IF 

XEBT 

DPEXE$0 DW 

0000H,0000H 

DW 

0000H,0000H 

DW 

DIRBUF,DPBXE$0 

DW 

0000H,ALVXE$0 

DB 

DPEXEB 

DB 

0 

DB 

2 

DB 

32 

DW 

0 

DW 

0 

ENDIF 

IF 

XEBPART2 AND (XEBT) 

DPEXE$1 DW 

OOOOH,OOOOH 

DW 

0000H,0000H 

DW 

DIRBUF,DPBXE$1 

DW 

0000H,ALVXE$1 

DB 

DPEXEB 

DB 

0 

^ ^ _ . 





DB 

32 


DW 

0 


DW 

ENDIF 

0 

WBOOT: 

LXI 

El 

SP,STACK 


XRA 

A 


MOV 

C,A 


MOV 

E,A 


CALL 

SETDSK 


MOV 

A,H 


ORA 

L 


JZ 

WBTE 


PUSH 

H 


CALL 

HLIHL 


SHLD 

XLTW1 


SHLD 

XLTW 


POP 

H 


PUSH 

H 


LXI 

D,DPEDPB 


DAD 

D 


CALL 

HLIHL 


MOV 

A,M 


STA 

SPT1 


STA 

SPT 


POP 

H 


IF 

H47T 


PUSH 

H 


LXI 

D,DPEHTH 


DAD 

D 


MOV 

A,M 


MOV 

C,A 


ANI 

DPETYPE 


CPI 

DPEH47 


JNZ 

WBTO 

WBTOX: 

MVI 

A,26 


LXI 

H,XLT0S 


STA 

SPT 

' 

SHLD 

XLTW 

WBTO: 

POP 

ENDIF 

H 


LXI 

D,DPEHTH 


DAD 

D 


LXI 

D,CCP-128 


LXI 

B,NSECTS*256 


IF 

H37T OR XEBT 


MOV 

A,M 


ANI 

DPETYPE 


CPI 

DPEH37 


JZ 

WBTOY 


CPI 

DPEXEB 


JNZ 

WBTOZ 

WBTOY: 

LXI 

ENDIF 

D,CCP-256 

WBTOZ: 

LXI 

H,0 

WBT1 : 

SHLD 

XCHG 

SEKTRK 


SHLD 

DMAB 

WBT2: 

PUSH 

B 


MVI 

B,0 


LHLD 

XCHG 

XLTW 


CALL 

SECTRAN 


MOV 

C,L 


MOV 

A,L 





WBT4: 

GOW; 


GOW1 : 


WBTE: 


CD A: 


CALL 

,SETSEC 

POP 

PSW 

DCR 

A 

CALL 

CDA 

SHLD 

DMAADR 

MOV 

A,H 

LXI 

B,CCP 

CMP 

B 

JC 

WBT3 

LXI 

B,BIOS 

CMP 

B 

JNC 

WBT3 

CALL 

READ 

ORA 

A 

JNZ 

WBTE 

POP 

B 

DCR 

B 

JZ 

WBT4 

PUSH 

B 

POP 

B 

INR 

C 

LDA 

SPT 

CMP 

C 

JNZ 

WBT2 

MVI 

C,0 

CALL 

CDA 

PUSH 

H 

LDA 

SPT1 

STA 

SPT 

LHLD 

XLTW1 

SHLD 

XLTW 

POP 

XCHG 

H 

LHLD 

SEKTRK 

INX 

H 

JMP 

WBT1 

MVI 

A,BT$WM 

PUSH 

PSW 

MVI 

A,MI$JMP 

LXI 

H,WBOOTE 

STA 

BOOT 

SHLD 

BOOT+1 

LXI 

H,BDOS+6 

STA 

BOOT+5 

SHLD 

BOOT+6 

LXI 

B,BUFF 

CALL 

SETDMA 

CALL 

FLUSH1 

POP 

PSW 

RRC 


LDA 

MODE 

JNC 

RAL 

RAL 

GOW1 

LDA 

LOGDSK 

STA 

SEKDSK 

MOV 

C,A 

JC 

CCP 

JMP 

CCPCLR 

LXI 

H,BTMSG 

CALL 

PMSG 

CALL 

CONIN 

JMP 

WBOOT 

LHLD 

DMAB 

ORA 

A 




HOME: 


HOMED: 

SETTER 


SETDSK 



SETDSK1 


SETDSK2: 


SETDE: 


MOV D,A 
MVI A,0 

EAR 

MOV E,A 

DAD D 

EET 

LDA HSTWET 

OEA A 

JNZ HOMED 

STA HSTACT 

LXI B,0 

: MOV H,B 

MOV L,C 

SHLD SEKTRK 

EET 

: MOV A,E 

STA SETDSKB 

MOV A,C 

STA SETDSKA 

CPI NDISKS 

JNC SETDE 

LXI H,BDMAP 

CALL DADA 

MOV A,M 

STA SEKDSK 

CALL GETDPE 

SHLD SETDSKC 

LXI D,DPEHTH 

DAD D 

SHLD DPBX 

IF PAETITN AND (XEBT) 

MOV A,M 

ANI DPETYPE 

CPI DPEXEB 

JNZ SETDSK1 

LDA XEIFLG 

ORA A 

JZ SETDSK1 

MOV A,M 

ANI DPEASGN 

JZ SETDE 

ENDIF 


LDA 

SETDSKB 

EAR 

JC 

SETDSK2 

CALL 

FLUSH 

LXI 

H,MODE 

MOV 

A,M 

STA 

SETDSKD 

ANI 

OFFH-MODEB1 

MOV 

M,A 

LDA 

SEKDSK 

CALL 

SHD 

LXI 

D,DDSEL 

CALL 

DSKDIS 

LDA 

SETDSKD 

STA 

MODE 

JC 

SETDE 

LHLD 

SETDSKC 

RET 

LDA 

SETDSKA 

LXI 

H,LOGDSK 

CMP 

M 

JNZ 

SF.TryFJ 






MVI 

SETDE1: LXI 

SETDSKA 
SETDSKB DS 
SETDSKC DS 
SETDSKD DS 
DSKDtS: MOV 
RLC 
RLC 
RLC 
ANI 
IF 

%: DPETYPE 

ENDIF 
ADD 
LXI 
CALL 
CALL 
DAD 
PCHL 

DTT: 


M,0 

H^OOOOH 

1 

1 

2 

1 

A,M 


DPETYPE/32 
DPETYPE-11100000B 
NE 11100000B 

A 

H,DTT 

DADA 

HLIHL 

D 


DW NULDVD 

DW NULDVD 

IF H17T 

DW H17DVD 

ENDIF 

IF ' NOT (H17T) 
DW NULDVD 

ENDIF 

IF H37T 

DW H37DVD 

ENDIF 

IF NOT (H37T) 

DW NULDVD 

ENDIF 

IF H47T 

DW H47DVD 

ENDIF 

IF NOT (H47T) 

DW NULDVD 

ENDIF 

DW NULDVD 

IF XEBT 

DW XEBDVD 

ENDIF 

IF NOT (XEBT) 

DW NULDVD 

ENDIF 

DW NULDVD 

SETSEC: MOV A,C 

DCR A 

STA SEKSEC 

RET 

SETDMA: MOV H,B 

MOV L,C 

SHLD DMAADR 

RET 

SECTRAN: XCHG 

MOV A,H 

ORA L 

DAD B 

JZ SECTRAN1 

■ MOV L,M 

MVI H,0 

RET 



SECTRAN1: 

INX 

RET 

WRALL EQU 
WRDIR EQU 
WRUAL EQU 
READ: XRA 

STA 
MVI 
STA 
STA 
MVI 
STA 
JMP 

WRITE: XRA 

STA 
MOV 
STA 
CPI 
JNZ 
LHLD 
INX 
INX 
INX 
MOV 
STA 
LDA 
STA 
LHLD 
SHLD 
LHLD 
LXI 
DAD 
CALL 
MOV 
ORA 
JNZ 
LDA 
STA 
JMP 

WRITEO: LDA 
INR 
MVI 

WRITE1: CMP 
JZ 
INR 
INX 
JMP 

WRITE2: MOV 
STA 

CHKUNA: LDA 
ORA 
JZ 
DCR 
STA 
LDA 
LXI 
CMP 
JNZ 
LDA 
LXI 
CMP 
JNZ 

LDA 

INX 

CMP 


H 

0 

1 

2 

A 

UNACNT 

A,1 

READOP 

RSFLAG 

A,WRUAL 

WRTYPE 

RWOPER 

A 

READOP 

A,C 

WRTYPE 

WRUAL 

CHKUNA 

DPBX 

H 

H 

H 

A,M 

UNACNT 

SEKDSK 

UNADSK 

SEKTRK 

UNATRK 

DPBX 

D,-DPEHTH 

D 

HLIHL 

A,H 

L 

WRITEO 

SEKSEC 

UNASI 

CHKUNA 

SEKSEC 

A 

C,0 

M 

WRITE2 

C 

H 

WRITE1 

A,C 

UNASI 

UNACNT 

A 

ALLOC 

A 

UNACNT 

SEKDSK 

H,0NADSK 

M 

ALLOC 
SEKTRK 
H,UNATRK 
M 

ALLOC 

SEKTRK+1 

H 

M 



JNZ 

ALLOC 


LHLD 

DPBX 


LXI 

D,-DPEHTH 


8];.»hl --- 

C Cfi-L-L. 

ORA 

L 

JNZ 

CHKUNA5 


LDA 

UNAS I 


LXI 

H,SEKSEC 


JMP 

CHKUNA6 


CHKUNA5: LDA 

UNAS I 


CALL 

DADA 


LDA 

SEKSEC 


INR 

A 


CHKUNA6: CMP 

M 


LXI 

H, UN AS I 


JNZ 

ALLOC 


INR 

M 


MOV 

A,M 


PUSH 

H 


PUSH 

PSW 


LHLD 

DPBX 


LXI 

D,-DPEHTH+DPEDPB 

DAD 

D 


CALL 

HLIHL 


POP 

PSW 


CMP 

M 


POP 

H 


JC 

NOOVF 


MVI 

M,0 


LHLD 

UNATRK 


INX 

H 


SHLD 

UNATRK 


NOOVF: XRA 

A 


STA 

RSFLAG 


JMP 

RWOPER 


ALLOC: XRA 

A 


STA 

UNACNT 


INR 

A 


STA 

RSFLAG 


RWOPER: XRA 

A 


STA 

ERFLAG 


LHLD 

DPBX 


MOV 

C,M 


INX 

H 


INX 

H 


MOV 

B,M 


IF 

H47T 


MOV 

A,C 


ANI 

DPETYPE 


CPI 

DPEH47 


JNZ 

RWO 


RWOX: LHLD 

SEKTRK 


MOV 

A,H 


ORA 

L 


JNZ 

RWO 


MVI 

B,1 


ENDIF 

RWO: MOV 

A,B 


STA 

LSP 


LDA 

SEKSEC 


RW1: PUSH 

PSW 


MOV ' 

A,B 


RAR 

MOV 

B,A 


JC 

RW2 


POP 

PSW 



D 

hl.) ni_ 



RW2 


ORA A 



RAR 

JMP 

RW1 

RW2: 

POP 

PSW 


STA 

SEKHST 


LXI 

H,HSTACT 


MOV 

A,M 


MVI 

M,1 


ORA 

A 


JZ 

FILHST 


LDA 

SEKDSK 


LXI 

H,HSTDSK 


CMP 

M 


JNZ 

NOMATCH 


LDA 

SEKTRK 


LXI 

H,HSTTRK 


CMP 

M 


JNZ 

NOMATCH 


LDA 

SEKTRK+1 


INX 

H 


CMP 

M 


JNZ 

NOMATCH 


LDA 

SEKHST 


LXI 

H,HSTSEC 


CMP 

M 


JZ 

MATCH 

NOMATCH: LDA 

HSTWRT 


ORA 

A 


CNZ 

WRITEHST 

FILHST 

: LDA 

SEKDSK 


STA 

HSTDSK 


LHLD 

SEKTRK 


SHLD 

HSTTRK 


LDA 

SEKHST 


STA 

HSTSEC 


LDA 

READOP 


ORA 

A 


JNZ 

FIL1 


LDA 

LSP 


DCR 

A 


JZ 

FIL2 

FIL1 : 

LDA 

RSFLAG 


ORA 

A 


CNZ 

READHST 

FIL2: 

XRA 

A 


STA 

HSTWRT 

MATCH: 

LDA 

LSP 


DCR 

A 


LXI 

H,SEKSEC 


ANA 

M 


LXI 

H,0 


JZ 

M2 


LXI 

D,128 

M1 : 

DAD 

D 


DCR 

A 


JNZ 

Ml 

M2: 

LXI 

D,HSTBUF 


DAD 

D 


XCHG 

LHLD 

DMAADR 


MVI 

C,128 


LDA 

READOP 


ORA 

A 


JNZ 

RWMOVE 


MVI 

A,1 


STA 

HSTWP'T 




XCHG 

RWMOVE: CALL 

MOVEITX 

LDA 

WRTYPE 

CPI 

WRDIR 

LDA 

ERFLAG 

JNZ 

RW9 

ORA 

A 

JNZ 

RW9A 

XRA 

A 

STA 

HSTWRT 

CALL 

WRITEHST 

LDA 

ERFLAG 

RW9: ANA 

A 

RZ 

RW9A: PUSH 

PSW 

CALL 

FLUSH1 

POP 

PSW 

RKT 

READHST: 

XRA 

A 

STA 

RWOP 

LDA 

HSTDSK 

CALL 

SHD 

LXI 

D,DDRD 

JMP 

DSKDIS 

WRITEHST: 

MVI 

A,1 

STA 

RWOP 

LDA 

HSTDSK 

CALL 

SHD 

LXI 

D,DDWR 

JMP 

DSKDIS 

FLUSH: LDA 

HSTACT 

ANA 

A 

JZ 

FLUSHl 

LDA 

HSTWRT 

ANA 

A 

CNZ 

WRITEHST 

FLUSH1: XRA 

A 

STA 

HSTACT 

STA 

HSTWRT 

STA 

UNACNT 

RET 

PRTERR: LDA 

MODE 

ANI 

MODEBl 

RZ 

PUSH 

H 

LXI 

H,CRLF 

CALL 

PMSG 

POP 

H 

CALL 

PMSG 

LDA 

RWOP 

LXI 

H,RDMSG 

ANA 

A 

JZ 

PRTERR1 

LXI 

H,WRMSG 

PRTERR1: 

CALL 

PMSG 

LXI 

H,ERRMSG 

CALL 

PMSG 

LDA 

ERRTYP 

CALL 

HOUT 

LXI 

H,CRLP 

CALL 

PMSG 

RET 



O Ul^ « 







IF 

H17T OR H37T 


STA 

SHDA 


STA 

SHDB 


ENDIF 



CALL 

GETDPEX 


SHLD 

HSTDPB 


IF 

H17T OR H37T 


MOV 

A,M 


ANI 

DPETYPE 


CPI 

DPEH17 


JZ 

SHD1 


CPI 

DPEH37 


JNZ 

SHD6 

SHDl: 

XCHG 



LXI 

H,DPEFLG2~DPEHTH 


DAD 

D 


MOV 

A,M 


ANI 

DPEIMG 


JZ 

SHD2 


LXI 

H,DPELUN-DPEHTH 


DAD 

D 


MOV 

A,M 


STA 

SHDB 


CALL 

GETDPEX 


XCHG 


SHD2: 

LXI 

H,DPELUN-DPEHTH 


DAD 

D 


LDA 

SHDA 


CMP 

M 


JZ 

SHD5 


MOV 

M,A 


CALL 

SHD9 


ADI 

'A' 


STA 

MNMSGA 


LDA 

SHDB 


CALL 

SHD9 


ADI 

'A' 


STA 

MNMSGB 


LXI 

D,DDMNT 


LHLD 

HSTDPB 


CALL 

DSKDIS 


LXI 

H,MNMSG 


CALL 

PMSG 

SHD3: 

CALL 

CONIN 


CPI 

CR 


JZ 

SHD4 


MVI 

C,BELL 


CALL 

CONOUT 


JMP 

SHD3 

SHD4: 

LXI 

H,CRLF 


CALL 

PMSG 

SHD5: 

LHLD 

HSTDPB 


ENDIF 


SHD6: 

RET 



IF 

H17T OR H37T 

SHD9: 

RAR 



RAR 



RAR 



RAR 



ANI 

OFH 


RET 


SHDA 

DS 

1 

SHDB 

DS 

1 

MNMSG 

DB 

CR,LF,*PUT DISK 

MNMSGA 

DB 

' . IN DRIVE ' 






AND PRESS RETURN',0 


MNMSGB 

H17DVD: 

H17PMS: 


SET17: 


SET17ER 

SET17E: 

SET17A: 

I 

SET17D: 


DB 

ENDIF 

IF 

JMP 

JMP 

JMP 

JMP 

JMP 

DW 

DB 

DW 

DB 

DW 

DB 

DW 

DB 

DW 

DB 

DW 

DB 

CALL 

RC 

LHLD 

LXI 

DAD 

MVI 

El 

CALL 

CALL 

CALL 

MVI 

STA 

CALL 

JC 

LHLD 

DCR 

JZ 

INR 

CPI 

JNZ 

MVI 

ANA 

:MVI 

JZ 

CALL 

PUSH 

CALL 

POP 

JC 

DCR 

CPI 

JZ 

MVI 

JMP 

MVI 

ANA 

MVI 

JZ 

INR 

JMP 

PUSH 

CALL 

POP 

ADD 

ADD 


H17T 
SET17 
RD17M 
WR17M 
RESHl7 
MNTH17 
DPB17S 
DPE48RO,8 
DPB17S 
0,8 

DPB17X 

0,8 

DPB17X 

DPE48RO+DPE2S,8 
DPB17X 
1,8 

DPB17D 
1,16 
RDYHI7 

HSTDPB 

D,DPETRK-DPEHTH 

D 

M,0FFH 

SDP 

MAI 

MAI 

A,HST 

DLYW 

SET17CK 

SET17ER 

HSTDPB 

A 

SETI7D 
A 
2 

SETI7A 

A,DPE96T 

M 

A,1 

SETI7D 

MAI 

H 

SETI7CK 
H 

SETI7E 
A 
2 

SETI7D 
A,3 

SETI7D 

A,DPE96T 

M 

A,4 

SETI7D 
A 

SETI7D 

PSW 

STZ 

PSW 

A 

A 





iXlUV d/R 


MVI 

D,0 

LXI 

H,H17PMS 

DAD 

D 

XCHG 

LHLD 

SETDSKC 

LXI 

B,DPEDPB 

DAD 

B 

LDAX 

D 

MOV 

M,A 

INX 

D 

INX 

H 

LDAX 

D 

MOV 

M,A 

INX 

D 

LHLD 

HSTDPB 

MVI 

A,OFFH-DPE2S-DPE48RO 

ANA 

M 

XCHG 

ORA 

M 

XCHG 

MOV 

M,A 

INX 

D 

LXI 

B,DPERPAB-DPEHTH 

DAD 

B 

LDAX 

D 

MOV 

M,A 

JMP 

XOK 

SET17CK0: CALL 

STS 

SET17CK:LDA 

DLYW 

ORA 

A 

JNZ 

SET17CK0 

MVI 

B,LPSA 

SET17K1;DI 

CALL 

WSC 

JC 

SET17K2 

CALL 

RDB 

CALL 

RDB 

PUSH 

PSW 

CALL 

RDB 

MOV 

H,D 

CALL 

RDB 

El 

CMP 

H 

JZ 

SETI7K3 

POP 

PSW 

SET17K2:CALL 

STS 

DCR 

B 

JNZ 

SETI7K1 

STC 

RET 

SET17K3:POP 

PSW 

ANA 

A 

RET 

RD17M: LDA 

HSTSEC 

STA 

SECTOR 

LDA 

HSTTRK 

STA 

TRACK 

CALL 

RD17 

MVI 

A,00H 

JNC 

RDH1 

DCR 

A 

RDH1: STA 

ERFLAG 

RET 

WR17M: LDA 

HSTSEC 

STA 

SECTOR 







CALL 

WNB 


INX 

H 


DCR 

B 


JNZ 

WR173 


MOV 

A,D 


CALL 

WNB 


CALL 

WNB 


CALL 

WNB 


CALL 

WNB 


LDA 

DEVCTL 


OUT 

DPDC 


JMP 

XOK 

WR17E: 

CALL 

H17E 


JNC 

WR171 


JMP 

XIT 

H17E: 

El 



STA 

ERRTYP 


ANI 

D$E$UNR+D$E$WRP 


JNZ 

H17E4 


LHLD 

SECNT17 


INX 

H 


SHLD 

SECNT17 


LXI 

H^ERRCNT 


DCR 

M 


JZ 

H17E4 


LDA 

ERRTYP 


CPI 

D$E$TRK 


JZ 

H17E2 


MOV 

A,M 


CPI 

5 


JZ 

RAR 

CMC 

RNC 

H17E2 


LHLD 

TRKPT 


RAR 



MOV 

A,M 


JC 

H17E1 


CPI 

39 


JZ 

H17E3 


INR 

M 


CALL 

MAI 


JMP 

H17E3 

H17E1; 

ORA 

A 


JZ 

H1 7E3 


DCR 

M 


CALL 

MAO 


JMP 

H17E3 

H17E2: 

CALL 

STZ 

H17E3: 

XRA 

RET 

A 

HI7E4: 

LXI 

H,H17MSG 


CALL 

STC 

RET 

PRTERR 

H17MSG 

DB 

'H17',0 

MNTH1 7 

: LHLD 

HSTDPB 


LXI 

D,DPETRK-DPEHTH 


DAD 

D 


MVI 

M,0FFH 

• 

§ 

JMP 

RESH17 

RESHl7 

: XRA 

A 


OUT 

PPDC 


STA 

DEVCTL 


LXI 

H,0 


SHLD 

DLYMO 


RET 


RDYH17: 

CALL 

ONH17 

LXI 

H.DLYW 

RDYHWA: 

MOV 

A,M 

ANA 

A 

JNZ 

RDYH17A 

LXI 

H,TICCNT 

MVI 

A,100 

ADD 

M 

MOV 

B,A 

MVI 

C,0 

MOV 

D,C 

RDYH17B: 

IN 

DPDC 

ANI 

DFHD 

CMP 

D 

JZ 

RDYH17C 

MOV 

D,A 

INR 

C 

WHDAL1: EQU 

$+1 

MVI 

A,WHDA 

RDYH17B1: 

DCR 

A 

JNZ 

RDYHI7B1 

RDYH17C: 

MOV 

A,B 

CMP 

M 

JNZ 

RDYH17B 

MOV 

A,C 

CPI 

10*2 

JC 

RDYH17D 

CPI 

12*2+1 

CMC 

JNC 

RDYH17E 

RDYH17D: 

MVI 

A,D$E$UNR 

CALL 

H17E 

RDYH17E: 

JMP 

XIT 

ONH17: El 

LXI 

H,0 

SHLD 

DLYMO 

LDA 

CTLPRT 

ANI 

0FFH-040H 

STA 

CTLPRT 

OUT 

H88CTL 

LHLD 

HSTDPB 

INX 

H 

MOV 

A,M 

ORI 

DFMO 

OUT 

DPDC 

MOV 

B,A 

LXI 

H,DEVCTL 

MOV 

A,M 

ANI 

DFMO 

JNZ 

ONH17A 

PUSH 

H 

LHLD 

HSTDPB 

LXI 

D,DPESEK-DPEHTH 

DAD 

D 

MOV 

A,M 

POP 

H 

RAL 

ENDIF 


r\T>ri»»/^ <1 nnAOAfinP; /H‘17T^ 







MVI 

A,RETRIES 


STA 

ERRCNT 


LHLD 

HSTDPB 


LXI 

D,DPETRK-DPEHTH 


DAD 

D 


SHLD 

TRKPT 


MOV 

A,M 


INR 

RNZ 

A 

MCON: 

JMP 

STZ 


PUSH 

B 


MOV 

C,A 


XRA 

A 

MCONO: 

ADD 

C 


DCR 

B 


JNZ 

MCONO 


POP 

RET 

B 

SDT: 

XRA 

A 


STA 

SIDE 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE2S 


LDA 

HSTTRK 


JZ 

RRC 

SDTO 


PUSH 

RRC 

PSW 


ANI 

040H 


STA 

SIDE 


POP 

PSW 


ANI 

7FH 

SDTO: 

STA 

TRACK 


JMP 

SDT2 

SDT1: 

INR 

M 


CALL 

MAI 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE48RO 


JZ 

SDT2 


CALL 

MAI 

SDT2: 

LHLD 

TRKPT 


LDA 

TRACK 


CMP 

M 


JZ 

SDT3 


JP 

SDT1 


DCR 

M 


CALL 

MAO 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE48RO 


JZ 

SDT2 


CALL 

MAO 


JMP 

SDT2 

SDT3: 

LDA 

CTLPRT 


PUSH 

H 


LXI 

H,SIDE 


ANI 

0FFH-40H 


ORA 

M 


OUT 

H88CTL 


STA 

CTLPRT 


POP 

H 


LDA 

HSTTRK 


STA 

TRACK 

SDT4: 

LDA 

DLYW 


CPT 

HST 





RNC 

MVI 

A,HST 


STA 

DLYW 

STZO: 

RET 

CALL 

MAO 

STZ: 

IN 

DPDC 


ANI 

DFTO 


JZ 

STZO 


LHLD 

TRKPT 


MVI 

M,0 


JMP 

SDT4 

MAI: 

MVI 

A,DFDI 


JMP 

MA01 

MAO: 

XRA 

A 

MA01 : 

PUSH 

H 


MOV 

H,A 


LDA 

DEVCTL 


ORA 

H 


OUT 

DPDC 


ORI 

DFST 


OUT 

DPDC 


XRI 

DFST 


OUT 

DPDC 


LHLD 

HSTDPB 


LXI 

D,5 


DAD 

D 


MOV 

A,M 


ANI 

07FH 


POP 

H 


CPI 

OOFH 


JNZ 

DLY 


INR 

A 

DLY: 

PUSH 

H 


LXI 

H,TICCNT 


ADD 

M 

DLY1: 

CMP 

M 


JNZ 

DLYI 


POP 

H 

LPSO: 

RET 

CALL 

STS 

LPS: 

LDA 

DLYW 


ORA 

A 


JNZ 

LPSO 


MVI 

B,LPSA 

LPS1: 

DI 



CALL 

WSC 


MVI 

A,D$E$HSY 


JC 

LPS2 


CALL 

RDB 


CALL 

RDB 


LXI 

H, TRACK 


CMP 

M 


MVI 

A,D$E$TRK 


JNZ 

LPS2 


CALL 

RDB 


INX 

H 


CMP 

M 


MVI 

A,D$E$RNF 


JNZ 

LPS2 


MOV 

H,D 


CALL 

RDB 


CMP 

H 


RZ 

MVI 

A,D$E$HCK 

LPS2: 

PUSH 

PSW 


CALL 

STS 



STS 



POP 

PSW 


OCR 

B 


JNZ 

STC 

RET 

LPS1 

STS; 

El 



PUSH 

B 


IN 

RAR 

DPDC 


JC 

STS2 


LXI 

H,TICCNT 


MOV 

B,M 

STS1: 

IN 

RAR 

DPDC 


JC 

STS2 


MVI 

A,STSA 


ADD 

B 


CMP 

M 


JNZ 

STS1 


JMP 

STS 3 

STS2: 

CALL 

WNH 


MVI 

A,STSB 


CALL 

DLY 

STS 3: 

POP 

DI 

B 

WHD: 

IN 

DPDC 


RAR 



JNC 

WHD 

WHDAL2: 

EQU 

$+1 


MVI 

A,WHDA 


JMP 

UDLY 

WNH: 

IN 

RAR 

DPDC 


JC 

WNH 

WHNAL: 

EQU 

$+1 


MVI 

A,WHNA 

UDLY: 

DCR 

A 


JNZ 

RET 

UDLY 

RDB: 

IN 

RAR 

UPST 


JNC 

RDB 


IN 

UPDP 


MOV 

E,A 


XRA 

RLC 

D 


MOV 

D,A 


MOV 

RET 

A,E 

READAL: 

EQU 

$+1 

WSC: 

MVI 

A, READ A 

WSCO: 

DCR 

A 


JNZ 

WSCO 


MVI 

A,DSYN 


OUT 

UPSC 


IN 

UPSR 

WSCAL; 

EQU 

$ + 1 


MVI 

A,WSCA 


MOV 

D,A 

WSC1 : 

IN 

DPDC 


ANI 

DFSD 


JNZ 

WSC2 


DCR 

D 


JNZ 

STC 

RET 

WSC1 


WSC2 


UPDP 

D,0 


IN 
MVI 
RET 

WSP: DCR A 

JNZ WSP 

LDA DEVCTL 

INR A 

OUT DPDC 

WSP1: XRA A 

CALL WNB 

DCR C 

JNZ WSP1 

MVI A,DSYN 

MOV D,A 

WNB: MOV E,A 

WNB1: IN UPST 

ANA A 

JP WNB1 

MOV A,E 

OUT UPDP 

XRA D 

RLC 

MOV D,A 

RET 

ENDIF 

IF H37T 

H37DVD: JMP SET37 

JMP RD37 

JMP WR37 

JMP RESH37 

JMP MNTH37 

SET37: 

LXI H,0 

SHLD HSTTRK 

XRA A 

STA HSTSEC 

DCR A 

STA SET37A 

CALL RDYH37 

JC SET379 

LHLD DPBX ^ 

LXI D,DPETRK-DPEHTH 

DAD D 

MVI M,DPEUNK 

ENDIF 

IF H37ED AND (H37T) 

CALL RD37 

JZ SET373 

LHLD DPBX 

MOV A,M 

XRI DPEDD 

MOV M,A 

CALL RD37 

JNZ SET379 

SET373: 

ENDIF 

IF NOT (H37ED) AND (H37T) 

MVI A,FDCRDA 

LXI D,H37TMP 

CALL H37RD 

JZ SET373 

LHLD DPBX 

MOV A,M 

XRI DPEDD 

MOV M,A 

LXI H,H37CTL 




MOV 

XRI 

MOV 

OUT 

MVI 

LXI 

CALL 

JNZ 

SET373: LDA 
CPI 
JNZ 
CALL 
JNZ 
ENDIF 
IF 

CALL 

JZ 

LHLD 

MOV 

ANI 

JNZ 

MVI 

LXI 

LXI 

CALL 

SET373A: 


A,M 

CONMFM 

M,A 

FD$CON 

A,FDCRDA 

D,H37TMP 

H37RD 

SET379 

H37TMP+FDRASL 

FDSL256 

SET379 

RD37 

SET379 

(H37T) 

CHKLAB 
SET373A 
DPBX ^ 

A,M 

DPEDD 

SET379 

C, LABLEN-1 

D, HSTBUF+LABEL 
H,DFTL37 
MOVEIT 


%: 


LHLD 
MOV 
ANI 
MOV 
LXI 
LDAX 
ANI 
ORA 
MOV 
INX 
INX 
LDAX 
INX 
INX 
MOV 
INX 
LDAX 
INX 
MOV 
INX 
INX 
INX 
LDAX 
ANI 
MOV 
INX 
INX 
INX 
MOV 
ANI 
ORA 
MOV 
ENDIF 

IF (DPEFLG2-DPERPAB-3) AND (H37T) 

(DPEFLG2-DPERPAB) NE 3 

ENDIF 

(H37T) 

HSTBUF+LABHTH+DPEFLAG-DPEHTH 
DPE2S 
SET374 


DPBX 

A, M 

DPETYPE+DPE96T 

B, A 

D,HSTBUF+LABHTH+DPEFLAG-DPEHTH 

D 

DPEED+DPEDD+DPE2S 

B 

M,A 

D 

D 

D 

H 

H 

M,A 

D 

D 

H 

M,A 

D 

D 

D 

D 

OFFH-DPEIMG 

B,A 

H 

H 

H 

A,M 

DPEIMG 

B 

M,A 


IF 

LDA 

ANI 

JZ 



MVI 

A,FDCRDA+FDFSS1 

LXI 

D,H37TMP 

CALL 

H37RD 

JNZ 

SET379 

LDA 

H37TMP+FDRASID 

CPI 

1 

JNZ 

SET379 

SET374: 

MVI 

A,2 

STA 

TRACK 

CALL 

SDT37 

MVI 

A,FDCRDA 

LXI 

D,H37TMP 

CALL 

H37RD 

JNZ 

SET379 

LDA 

H37TMP+FDRATRK 

CPI 

2 

JZ 

SET374D 

CPI 

1 

JNZ 

SET379 

LHLD 

DPBX 

MOV 

A,M 

OKI 

DPE48RO 

MOV 

M,A 

SET374D: CALL 

RST37 

SET375: LHLD 

SETDSKC 

LXI 

B^DPEDPB 

DAD 

B 

CALL 

HLIHL 

LXI 

D,HSTBUF+LABDPB 

MVI 

C,DPBL 

CALL 

MOVEITX 

XRA 

A 

SET378: MVI 

A,0 

STA 

SET37A 

CALL 

H37DONE 

RET 

SET379: 

STC 

JMP 

SET378 

DFTL37 DB 

LABVER 

DB 

DPEH37,0,2,8,0,0,0,0 

DW 

20 

DB 

3,7,0 

DW 

91,63,00C0H,16,3 

SET37A DB 

0 

H37TMP DS 

FDRAL 

H37WAIT: 

POP 

H 

SHLD 

H37IRET 

MOV 

B,A 

MVI 

A,FD$CD 

OUT 

FD$INT 

MOV 

A,B 

OUT 

FD$CMD 

JMP 

$ 

H37RD: 

LXI 

H,H37RD2 

SHLD 

H37IRET 

MOV 

B,A 

LDA 

H37CTL 

ORI 

CONDRQ 

OUT 

FD$CON 

MVI 

A,FD$CD 

OUT 

FD$INT 


A r» 




LXI 

TCfU -- 

H,H37RD1 


OUT 

FD$CMD 

H37RD1 

• 

• 



HLT 

IN 

FD$DAT 


STAX 

D 


INX 

D 

H37RD2 

PCHL 

• 

• 



PUSH 

PSW 


LDA 

H37CTL 


OUT 

FD$CON 


POP 

PSW 


ANA 

A 

RET 

H37DONE: 



PUSH 

PSW 


LDA 

SET37A 


ANA 

A 


JNZ 

H37DONE1 


LXI 

H,H37CTL 


MOV 

A,M 


ani 

OFFH-CONIRQ 


OUT 

FD$CON 


MOV 

M,A 


LXI 

H,DELAY37 


SHLD 

DLYM037 

H37DONE1; 



POP 

PSW 

RD37: 

RET 

CALL 

SDP37 

RD370: 

CALL 

SDT37 


LDA 

SIDE 


ORI 

FDCRDS+FDFSLF 


LXI 

D,HSTBUF 


CALL 

H37RD 


JZ 

RD373 


CALL 

H37E 


JNC 

RD370 


ORI 

OFFH 


STA 

ERFLAG 

RD373: 

JMP 

H37DONE 

WR37; 

LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE48RO 


MVI 

A,FDSWPV 


JNZ 

WR37E 


CALL 

SDP37 

WR370: 

CALL 

SDT37 


MVI 

A,FD$CD 


OUT 

FD$INT 


LDA 

HSYCtL 


ORI 

CONDRQ 


OUT 

FD$CON 


LDA 

SIDE 


ORI 

FDCWRS+FDFSLF 


LXI 

H,WR372 


SHLD 

H37IRET 


LXI 

H,WR371 


LXI 

D,HSTBUF 


OUT 

FD$CMD 

WR371: 

LDAX 

D 


HLT 

OUT 

FD$DAT 


WR372: 

PCHL 

CALL 

H37RD2 


JZ 

WR373 

WR37E: 

CALL 

H37E 


JNC 

WR370 


ORI 

OFFH 


STA 

ERFLAG 

WR373: 

JMP 

H37DONE 

H37E: 


STA 

ERRTYP 


ANI 

FDSNRD+FDSWPV 


JNZ 

H37E1 


LDA 

SET37A 


ANA 

A 


JNZ 

H37E0 


LHLD 

SECNT37 


INX 

H 


SHLD 

SECNT37 

H37E0: 

LXI 

H,ERRCNT 


OCR 

M 


JZ 

H37E1 


MOV 

A,M 


CPI 

2 


CZ 

RST37 


XRA 

A 

H37E1: 

RET 

LXI 

H,H37MSG 


CALL 

PRTERR 

H37MSG 

STC 

RET 

DB 

'H37' ,0 

H37ISR: 

MVI 

A,10 

H37ISR1 

: DCR 

A 


JNZ 

H37ISR1 


IN 

FD$STA 


XTHL 

LHLD 

H37IRET 


XTHL 

El 

RET 


SDP37: 


CALL 

ONH37 


LDA 

SET37A 


ANA 

A 


MVI 

A,4 


JZ 

SDP371 

SDP371: 

RAR 

STA 

ERRCNT 


LDA 

HSTTRK 


STA 

TRACK 


MVI 

B,0 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE2S 


JZ 

SDP374 


LXI 

H,TRACK 


MOV 

A,M 


ANA 

A 


RAR 

MOV 

M,A 


JNC 

SDP374 


MVI 

B,FDFSS1 

SDP374: 

MOV 

A,B 


STA 

SIDE 


LDA 

HSTSEC 




INR 

A 


STA 

SECTOR 


LHLD 

HSTDPB 


LXI 

D,DPETRK-DPEHTH 


DAD 

D 


SHLD 

TRKPT 


MOV 

' A,M 


RAL 



JC 

RST37 


MVI 

A,FD$TS 


OUT 

FD$INT 


MOV 

A,M 


OUT 

FD$TRK 


RET 


ONH37: 




LXI 

H,0 


SHLD 

DLYM037 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPEDD 


JZ 

ONH37A 


MVI 

A,CONMFM 

ONH37A: 

INX 

H 


ORA 

M 


ORI 

CONMO+CONIRQ 


OUT 

FD$CON 


MOV 

B,A 


LXI 

H,H37CTL 


MOV 

A,M 


ANI 

CONMO 


JNZ 

ONH37B 


PUSH 

H 


LHLD 

HSTDPB 


LXI 

D,DPESEK-DPEHTH 


DAD 

D 


MOV 

A,M 


POP 

H 


RAL 



ENDIF 



IF 

DPEMO-10000000B AND (H37T) 

%: 

DPEMO 

NE 10000000B 


ENDIF 



IF 

(H37T) 


MVI 

A,(1000+3)/4+1 


JNC 

ONH37C 


RAR 



RAR 



ANI 

03FH 


JMP 

ONH37C 

ONH37B 

MOV 

A,M 


ANI 

CONDSO+CONDS1+CONDS2+CONDS3 


ANA 

B 


MVI 

A,0 


JNZ 

ONH37C 


MVI 

A,(50+3)/4+1 

ONH37C: 

STA 

DLYW 


MOV 

M,B 


RET 


RST37: 

CALL 

WBS37 


LHLD 

TRKPT 


MVI 

M,0 


INX 

H 


ENDIF 

IF (DPETRK+1)-DPESEK AND (H37T) 

%; DPESEK NE (DPETRK+1) 

TPKinTT? 






IF 

(H37T) 


MOV 

A,M 


ANI 

OFFH-DPEMO 


ORI 

FDCRST 


JMP 

H37WAIT 

MNTH37: 

LHLD 

HSTDPB 


LXI 

D,DPETRK-DPEHTH 


DAD 

D 


MVI 

M,DPEUNK 

• 

f 

JMP 

RESH37 

RESH37: 

MVI 

A,FD$CD 


OUT 

FD$INT 


MVI 

A,FDCFI+FDFINI 


OUT 

FD$CMD 


XRA 

A 


OUT 

FD$CON 


STA 

H37CTL 


LXI 

H,0 


SHLD 

DLyM037 


SHLD 

H37IRET 


IN 

FD$DAT 


MVI 

A,10 

RESH371 

• 

• 



DCR 

A 


JNZ 

RESH371 


IN 

RET 

FD$STA 

SDT37: 

LHLD 

TRKPT 


MOV 

A,M 


LXI 

H,TRACK 


CMP 

M 


JZ 

SDT372 


CALL 

WBS37 


MOV 

A,M 


CALL 

SDT376 


LHLD 

HSTDPB 


MOV 

A,M 


ANI 

DPE48RO 


JZ 

SDT371 


MVI 

A,FD$TS 


OUT 

FD$INT 


LHLD 

TRKPT 


MOV 

A,M 


OUT 

FD$TRK 


LDA 

TRACK 


CALL 

SDT376 

SDT371 : 

MVI 

A,FD$TS 


OUT 

FD$INT 


LDA 

TRACK 


OUT 

FD$TRK 


LHLD 

TRKPT 


MOV 

M,A 


MVI 

A,(15+3)/4+1 


LXI 

H,DLYW 


CMP 

M 


JC 

SDT372 


MOV 

M,A 

SDT372: 

MVI 

A,FD$TS 


OUT 

FD$INT 


LDA 

SECTOR 


OUT 

FD$SEC 

SDT373: 

LDA 

DLYW 


ORA 

A 


JNZ 

RET 

SDT373 


SDT37b: MOV 

R7A 

MVI 

A,FD$CD 

OUT 

FD$INT 

MOV 

A,B 

OUT 

FD$DAT 

LHLD 

TRKPT 

INX 

H 

MOV 

A,M 

ANI 

OFFH-DPEMO 

ORI 

FDCSEK+FDFHLB 

JMP 

H37WAIT 

RDYHS?: 

CALL 

ONH37 

LXI 

H.DLYW 

RDyH37A: 

MOV 

A,M 

ANA 

A 

JNZ 

RDYH37A 

MVI 

A,FD$CD 

OUT 

FD$INT 

MVI 

A,FDCFI+FDFINI 

OUT 

FD$CMD 

MVI 

A,10 

RDYH37B: 

DCR 

A 

JNZ 

RDYH37B 

LXI 

H,TICCNT 

MVI 

A,200 

ADD 

M 

MOV 

B,A 

MVI 

C,0 

MOV 

D.C 

RDYH37C: 

IN 

FD$STA 

ANI 

FDSIND 

CMP 

D 

JZ 

RDYH37D 

MOV 

D,A 

INR 

C 

MVI 

A.FDHDD 

RDYH37C1: 

DCR 

A 

JNZ 

RDYH37C1 

RDYH37D: 

MOV 

A,B 

CMP 

M 

JNZ 

RDYH37C 

MOV 

A,C 

CPI 

1*2 

JC 

RDYH37E 

CPI 

3*2 + 1 

CMC 

JNC 

RDYH37F 

RDYH37E: 

MVI 

A,FDSNRD 

CALL 

H37E 

RDYH37F: 

JMP 

H37DONE 

WBS37: MVI 

A,150 

WBS371: DCR 

A 

JNZ 

WBS371 

RET 


ENDIF 

IF 

H47T 

H47DVD: JMP 

SETD47 

JMP 

RD47 




H47PMS: 


SETD47: 


SETD1 : 


JMP 

WR47 

JMP 

RESH47 

XRA A 

1 RET i NOP 

DW 

XLT0S,DPB0SS 

DB 

0r1,8 

DW 

XLT0S,DPB0SD 

DB 

DPE2S,1,16 

DW 

XLT0D,DPB0DS 

DB 

DPEDD,2,16 

DW 

XLT0D,DPB0DD 

DB 

DPEDD+DPE2S,2,16 

ENDIF 

IF 

H47ED AND (H47T) 

DW 

0,DPB0ES 

DB 

DPEED+DPEDD,8,16 

DW 

0,DPB0ED 

DB 

DPEED+DPEDD+DPE2S,8,16 

ENDIF 

IF 

(H47T) 

MVI 

A,DRAS 

CALL 

WCD 

LHLD 

DPBX 

INX 

H 

MOV 

A,M 

OKI 

001H 

CALL 

WBD 

CALL 

W4TR 

CALL 

H47IND 

PUSH 

PSW 

ANI 

03H 

CPI 

2 

ENDIF 

IF 

H47ED AND (H47T) 

JC 

SETD1 

MVI 

A,2 

ENDIF 


IF 

NOT (H47ED) AND (H47T) 

JNC 

SETD9 

ENDIF 

IF 

(H47T) 

ADD 

A 

MOV 

D,A 

POP 

PSW 

ANI 

10H 


MOV 

JZ 

OKI 

SETD2: MOV 

ADD 
ADD 
ADD 
ADD 
LXI 
CALL 
XCHG 
LHLD 
LDAX 
MOV 
INX 
INX 
LDAX 
MOV 
INX 
PUSH 
LXI 
DAD 


A,D 

SETD2 

1 


B,A 


A 

B 

A 

B 

H,H47PMS 

DADA 


SETDSKC 

D 

M,A 

D 

H 

D 

M,A 

D 

D 

D,DPEDPB-1 

D 



POP 

D 


LDAX 

D 


MOV 

M,A 


INX 

D 


INX 

H 


LDAX 

D 


MOV 

M,A 


INX 

D 


LHLD 

DPBX 


MOV 

A,M 


ANI 

OFFH-DPEED-DPEDD-DPE2 S 


MOV 

B,A 


LDAX 

D 


ORA 

B 


MOV 

M,A 


INX 

D 


INX 

H 


INX 

H 


LDAX 

D 


MOV 

M,A 


INX 

D 


INX 

H 


LDAX 

D 


MOV 

M,A 


XRA 

RET 

ENDIF 

A 


IF 

NOT H47ED AND (H47T) 

SETD9: 

STC 

RET 

ENDIF 



IF 

(H47T) 

RESH47: 

MVI 

A,DCRES 


CALL 

H470UTC 


CALL 

W4DONE 


XRA 

A 


CALL 

RET 

H470UTC 

RD47: 

MVI 

A,DRD 


CALL 

SET 4 7 


JC 

RDERR 

RDH3: 

CALL 

H47INS 


ANI 

DSTR+DSDONE+DSERR 


JZ 

RDH3 


ANI 

DSDONE+DSERR 


JN2 

RDH4 


CALL 

H47IND 


MOV 

M,A 


INX 

H 


JMP 

RDH3 

RDH4: 

CALL 

H47INS 

RDERR: 

ANI 

RZ 

DSERR 

ER47: 

MVI 

A,DRS 


CALL 

WCD 


CALL 

W4TR 


CALL 

H47IND 


STA 

ERRTYP 


LXI 

H,H47MSG 


CALL 

PRTERR 


CALL 

RESH47 


MVI 

A,0FFH 


STA 

RET 

ERFLAG 

H47M.sr: 

OR 

'H47',0 


T 


WR47: 

MVI 

A,DWR 


CALL 

SET 4 7 


JC 

WRERR 


CALL 

H47INS 


ANI 

DSERR 


JNZ 

WRERR 

WRH3: 

CALL 

H47INS 


ANI 

DSTR+DSDONE+DSERR 


JZ 

WRH3 


ANI 

DSDONE+DSERR 


JNZ 

WRH4 


MOV 

A,M 


CALL 

H470UTD 


INX 

H 


JMP 

WRH3 

WRH4: 

CALL 

H47INS 


ANI 

RZ 

DSERR 

WRERR: 

JMP 

ER47 

SET47: 

CALL 

RC 

WCD 


LHLD 

HSTDPB 


MOV 

A,M 


RAR 

ENDIF 



IF 

DPE2S-1 AND (H47T) 

%: 

DPE2S 

NE 1 


ENDIF 

' 


IF 

(H47T) 


MVI 

A,0 


STA 

SIDE 


LDA 

HSTTRK 


JNC 

RRC 

SET472 


PUSH 

PSW 


ANI 

080H 


STA 

SIDE 


POP 

PSW 


ANI 

07FH 

SET472: 

CALL 

RC 

WBD 


LHLD 

HSTDPB 


INX 

H 


LDA 

HSTSEC 


INR 

A 


ORA 

M 


LXI 

H^SIDE 


ORA 

M 


CALL 

RC 

WBD 


LXI 

RET 

H,HSTBUF 

WCD: 

CALL 

RC 

W4DONE 


CALL 

H470UTD 


CALL 

RET 

W4ND 

WBD: 

CALL 

RC 

W4TR 


CALL 

RET 

H470UTD 

W4D0NE: 

PUSH 

PSW 


PUSH 

B 


LXI 

B, OFFFFH 

W4D1: 

CALL 

H47INS 



ncnrvMT? 


JNZ 

DCX 

MOV 

ORA 

JNZ 

POP 

POP 

STC 

RET 

W4D2: POP 

POP 
ORA 
RET 

W4ND: PUSH 

W4ND1: CALL 
ANI 
JNZ 
POP 
RET 

W4TR: PUSH 

W4TR1: CALL 
ANI 
JZ 
ANI 
JNZ 
POP 
ORA 
RET 

W4TR2: POP 
STC 
RET 

H47INS; IN 

H47INS1 EQU 
RET 

H470UTC: OUT 

H470UTC1 EQU 
RET 

H47IND: IN 

H47IND1 EQU 
RET 

H470UTD: OUT 

H470UTD1 EQU 
RET 
ENDIF 
IF 

XEBDVD: JMP 
JMP 
JMP 
JMP 



LXI 

SHLD 

CALL 

STC 

RNZ 

CALL 

STC 

RNZ 

LHLD 


W4D2 

B 

A,B 

C 

W4D1 

B 

PSW 


B 

PSW 

A 

PSW 

H47INS 

DSDONE 

W4ND1 

PSW 

PSW 

H47INS 

DSDONE+DSTR 

W4TR1 

DSDONE 

W4TR2 

PSW 

A 

PSW 


78H 

$-1 

78H 

$-1 

79H 

$-1 

79H 

$-1 


XEBT 

SETXEB 

RDXEB 

WRXEB 

RESXEB 

MNTXEB 

XEIFLG 

A 

XEINIT 


A 

HSTSEC 

H7O 

HSTTRK 

RDXEB 



CHKLAB 

DPBX 

n nT>T?mT>v. nr>T?WT’M 



T V-T 


RDXEB: 


RDXEO: 


RDCNT: 


RDXEl : 


WRXEB: 


DAD D 

CALL HLIHL 

XCHG 

LHLD HSTBUF+LABHTH+DPETRK-DPEHTH 

CALL CPHLDE 

STC 

RNZ 

LHLD DPBX 

LXI D,DPEUPB-DPEHTH 

DAD D 

CALL HLIHL 

XCHG 


, LHLD HSTBUF+LABHTH+DPEUPB-DPEHTH 

CALL CPHLDE 

STC 

RNZ^._.„...........-. 

LHLD DPBX 

LXI D,DPERPAB-DPEHTH 

DAD D 

LDA HSTBUF+LABHTH+DPERPAB-DPEHTH 

MOV M,A 

LHLD SETDSKC 

LXI D,DPEDPB 

DAD D 

CALL HLIHL 

LXI D,HSTBUF+LABDPB 

MVI C,DPBL 

CALL MOVEITX 

XRA A 

RET 

MVi A,HDCRD 

CALL SETUP 

RNZ 

LXI H^HSTBUF 

XRA A 

STA RDCNT 

CALL INSTAT 

ANA A 

JP RDXEO 

ANI HDBCMD 

JNZ CKSTAT 

EQU $+1 

MVI B,0 

LDA Z80FLG 

ORA A 

JNZ RDXEl 

LDA INDATP 

MOV C,A 

DB 0EDH,0B2H 

JMP RDXEO 

CALL INSTAT 

ANA A 

JP RDXE1 

ANI HDBCMD 

JNZ CKSTAT 

CALL INDAT 

MOV M,A 

INX H 

JMP RDXEl 

LHLD HSTDPB 

MOV A,M 

ANI DPE2S 

MVI A,HDEWF 

JNZ XERR 

MVI A,HDCWR 


j, 








oriiur 

RNZ 

XRA 

A 

STA 

WRCNT 

LXI 

H,HSTBUF 

WRXEO: CALL 

INSTAT 

ANA 

A 

JP 

WRXEO 

ANI 

HDBCMD 

JNZ 

CKSTAT 

LDA 

Z80FLG 

ORA 

A 

JZ 

WRXE1 

LDA 

INDATP 

MOV 

C,A 

WRCNT: EQU 

$+1 

MVI 

B,0 

DB 

0EDH,0B3H 

JMP 

WRXEO 

WRXEl: CALL 

INSTAT 

ANA 

A 

JP 

WRXE1 

ANI 

HDBCMD 

JNZ 

CKSTAT 

MOV 

A,M 

CALL 

OUTDAT 

INX 

H 

JMP 

WRXE1 

RESXEB: XRA 

A 

RET 

MNTXEB: XRA 

A 

RET 

XEINIT: MVI 

A,80H 

ADI 

081H 

JPO 

XEINIO 

STA 

Z80FLG 

XEINIO: LXI 

H,0 

SHLD 

HSTTRK 

MVI 

A,1 

STA 

HSTSEC 

CALL 

RDXEB 

STC 

RNZ 

LXI 

H,HSTBUF 

LXI 

D,XEVER 

MVI 

C,4 

XECHK: LDAX 

D 

CMP 

M 

STC 


RNZ 

INX 

H 

INX 

D 

DCR 

C 

JNZ 

XECHK 

LDA 

HSTBUF+PTSEK 

STA 

XESTEP 

LXI 

H,HSTBUF+PTPTBL-1 

LXI 

D,XEBBUF 

MVI 

C,8 

XEINI1: MOV 

A,M 

STAX 

D 

DCX 

H 

INX 

D 

DCR 

C 

JNZ 

XEINI1 

MVI 

A,HDCIDC 


CALL 

STC 

RNZ 

MVI 

STA 

LXI 

CALL 

STC 

RNZ 

LDA 

ANI 

JZ 

MVI 

FNDPART:INR 

MOV 

CALL 

LXI 

DAD 

MOV 

CPI 

JNZ 

INX 

INX 

CALL 

CALL 

XCHG 

LHLD 

CALL 

JNZ 

LHLD 

MOV 

ANI 

ORA 

STA 

CMP 

MOV 

JNZ 

MOV 

JMP 

SETDFLT:LDA 

LXI 

CALL 

LDA 

SETDFL2:LXI 

ANI 

MOV 

MOV 

ANI 

ORA 

MOV 

LXI 

CALL 

MVI 

STA 

XRA 

RET 

GETPART:ANI 

INR 

ADD 

ADD 

ADD 

ADD 

MOV 

MVI 

LXI 

DAD 


SETUP 


A,8 
WRCNT 
H,XEBBUF 
WRXEO 


DPEXE$0+DPEHTH 

DPEASGN 

SETDFLT 

C, 0FFH 
C 

A,C 

GETPART 

D, PTCAT 
D 

A,M 

2 

FNDPART 

H 

H 

HLIHL 

CYLSEC 

DPEXE$0+DPETRK 

CPHLDE 

FNDPART 

XEPARTO 

A,L 

OFOH 

C 

XEPARTO 

L 

A,L 

SETDFL2 

A,H 

SETDFL2 

XEPARTO 

H,DPEXE$ 0 +DPEHTH 

SETPART 

XEPART1 

H,XEPART1 

OOFH 

C, A 
A,M 
OFOH 
C 

M,A 

H f DPEXE$1+DPEHTH 

SETPART 

A,0FFH 

XEIFLG 

A 

OOFH 

A 

A 

A 

A 

A 

E,A 

D, 0 

H,HSTBUF 

D 




RET 

CYLSEC: DAD 
DAD 
DAD 
DAD 
DAD 
LDA 
XCHG 
LXI 

CYLSECO:DAD 

DCR 

JNZ 

RET 

SETPARTiPUSH 

CALL 

LXI 

DAD 

MOV 

CPI 

POP 

RNZ 

PUSH 

INX 

MOV 

ANI 

ORI 

MOV 

LDAX 

ANI 

ORA 

STAX 

INX 

PUSH 

CALL 

CALL 

XTHL 

INX 

INX 

CALL 

CALL 

POP 

DAD 

XTHL 

LXI 

DAD 

MOV 

INX 

MOV 

INX 

POP 

MOV 

INX 

MOV 

RET 

HOMXE: MVI 

STA 
CALL 
MVI 
STA 
JMP 

RSXE: MVI 

STA 
XRA 
STA 
CALL 
MVI 


H 

H 

H 

H 

H 

HSTBUF+PTHDS 

H,0 

D 

A 

CYLSECO 

H 

GETPART 

D,PTCAT 

D 

A,M 

2 

D 

D 

H 

A, M 
1 

DPEASGN 

C,A 

D 

0FFH-DPEASGN-DPE2S 

C 

D 

H 

H 

HLIHL 

CYLSEC 

H 

H 

HLIHL 

CYLSEC 

D 

D 

B, DPETRK-DPEHTH 
B 

M,E 

H 

M,D 

H 

D 

M,E 

H 

M,D 

A,HDCRCL 

CMDBUF+HDOOP 

SETUP2 

A,1 

RSFLG 

CKSTAT 

A,HDCRS 

CMDBUF+HDOOP 

A 

CMDBUF+HDOCON 

SETUP2 

A.I 





STA 

RSFLG 


LXI 

H,XEBBUF 


MVI 

M,0 


MVI 

A,4 


STA 

RDCNT 


CALL 

RDXE1 


MVI 

A,0 


JNZ 

RSXE1 


LDA 

XEBBUF 

RSXE1: 

ANI 

HDSET+HDSEC 


STA 

RET 

ERRTYP 

SETUP: 

LXI 

H,CMDBUF 


MOV 

M,A 


INX 

H 


MVI 

XCHG 

M,0 


INX 

D 


PUSH 

D 


LHLD 

HSTTRK 


DAD 

H 


DAD 

H 


DAD 

H 


DAD 

H 


DAD 

H 


LDA 

HSTSEC 


MOV 

E,A 


MVI 

D,0 


DAD 

XCHG 

D 


LDA 

XEIFLG 


ORA 

A 


JZ 

SETUPS 


LHLD 

HSTDPB 


LXI 

B,DPETRK-DPEHTH 


DAD 

B 


CALL 

XCHG 

HLIHL 


DAD 

D 


CALL 

CPHLDE 


JC 

XCHG 

SETUPS 


LHLD 

HSTDPB 


LXI 

B,DPEUPB-DPEHTH 


DAD 

B 


CALL 

XCHG 

HLIHL 


CALL 

CPHLDE 


JNC 

XCHG 

SETUPS 

SETUP9: 

POP 

H 


MOV 

M,D 


INX 

H 


MOV 

M,E 


INX 

H 


MVI 

M,1 


INX 

H 

XESTEP: 

EQU 

$+1 


MVI 

M,0 

SETUP2: 

XRA 

A 


STA 

RSFLG 


LXI 

D,0 

SETUPS: 

CALL 

INSTAT 


ANI 

HDBBSY 


JZ 

SETUP4 


nr.Y 

n 





MOV 

A,D 


ORA 

E 


JZ 

SETUP? 


JMP 

SETUPS 

SETUP4: 

MVI 

A,HDFSEL 


CALL 

OUTCTL 


LXI 

D,0 

WBUSY: 

CALL 

INSTAT 


ANI 

HDBBSY 


JNZ 

SETUPS 


DCX 

D 


MOV 

A,D 


ORA 

E 


JZ 

SETUP? 


JMP 

WBUSY 

SETUPS: 

DI 



MVI 

A,HDFDE 


CALL 

OUTCTL 


LXI 

H,CMDBUF 

OUTCMD: 

CALL 

INSTAT 


ANI 

HDBREQ+HDBCMD+HDBIO 


JP 

OUTCMD 


CPI 

HDBREQ+HDBCMD+HDBIO 


JNZ 

SETUPS 


MOV 

A,M 


CALL 

OUTDAT 


INX 

H 


JMP 

OUTCMD 

SETUPS: 

XRA 

RET 

A 

SETUP?: 

MVI 

A,84H 


JMP 

XERR 

SETUPS: 

POP 

H 


MVI 

A,83H 


JMP 

XERR 

CKSTAT: 

CALL 

INDAT 


MOV 

C,A 

CKSTO: 

CALL 

INSTAT 


ANA 

A 


JP 

CKSTO 


CALL 

El 

INDAT 


ORA 

A 


MVI 

A,80H 


JNZ 

XERR 


MOV 

A,C 


ANI 

RZ 

HDFERR+HDFPE 


ANI 

HDFERR 


MVI 

A,82H 


JZ 

XERR 


LDA 

RSFLG 


ANA 

RNZ 

A 


CALL 

RSXE 

XERR: 

STA 

ERRTYP 


CPI 

HDEWF 


CZ 

HOMXE 


LXI 

H,XEMSG 


CALL 

PRTERR 


ORI 

OFFH 


STA 

RET 

ERFLAG 

XEMSG: 

DB 

'XEBEC',0 

OUTDATP 

:EQU 

$+1 

nnTDzv'T- 

nriT 

1 1 


RET 

INDATP: EQU $+1 

INDAT: IN ' . ' 

RET 

OUTCTLP:EQU $+1 

OUTCTL: OUT 
RET 

INSTAP: EQU $+1 

INSTAT: IN 
RET 

XEIFLG: DB 0 

Z80FLG: DB 0 

RSFLG: DB 0 

XEVER: DB 0C3H,080H,024H,PVERS 

XEBBUF: DB 0,0,0,0,0,0,0,0 

CMDBUF: DB 0 

DB 0 

DB 0 

DB 0 

DB 1 

DB 0 

ENDIF 

NULDVD; JMP SETNUL 

JMP RDNUL 

JMP WRNUL 

JMP RESNUL 

JMP MNTNUL 

SETNUL: 

RDNUL: 

WRNUL: 

RESNUL: 

MNTNUL: 

MVI A,0FFH 

STA ERFLAG 

STC 
RET 

IF "tod 

NDAYS DB 31,28,31,30,31,30,31,31,30,31,30,31 C L Oc /c 

ENDIF f f t f r V 

TODVAL DB 0,0,0,0,0,0 

EVTCTR DW 0 

DLYMO: DB 0 

DLYH: DB 0 

DLYW: DB 0 

CLOCK: SHLD HSAV 

POP H 

SHLD RETSAV 

PUSH PSW 

LXI H,CTLPRT 

MOV A,M 

OUT H88CTL 

INX H 

MOV A,M 

ORA A 

JZ CLKO 

OUT H8CTL 

CLKO: LHLD TICCNT 

INX H 

SHLD TICCNT 

MOV A,L 

ORA A 

JNZ CLKRET 

IF TOD 

MOV A,H 

RAR 




CLK1: 


CLK2: 


JC 

CLKl 

LXI 

H,TODVAL 

INR 

M 

MOV 

A.M 

60 

CPI 

JC 

CLK1 

MVI 

M,0 

INX 

H 

INR 

M 

MOV 

A,M 

CPI 

60 

JC 

CLK1 

MVI 

M,0 

INX 

H 

INR 

M 

MOV 

A,M 

CPI 

24 

JC 

CLK1 

MVI 

M,0 

INX 

H 

INX 

H 

MOV 

A,M 

LXI 

H,NDAYS-1 

ADD 

L 

MOV 

L,A 

MOV 

A,H 

ACI 

0 

MOV 

H,A 

MOV 

A,M 

LXI 

H,TODVAL+3 

INR 

M 

CMP 

M 

JNC 

CLK1 

MVI 

M,1 

INX 

H 

INR 

M 

MOV 

A,M 

CPI 

13 

JC 

CLKl 

MVI 

M,1 

INX 

H 

INR 

ENDIF 

M 

IF 

EVENT 

LHLD 

EVTCTR 

MOV 

A,H 

ORA 

L 

JZ 

CLK2 

DCX 

H 

SHLD 

ENDIF 

EVTCTR 

IF 

H17T 

LXI 

H,DLYMO 

MOV 

A,M 

ORA 

A 

JZ 

CLK4 

DCR 

M 

JNZ 

CLK3 

LDA 

DEVCTL 

ANI 

OFFH-DFMO 

STA 

DEVCTL 

OUT 

DPDC 

INX 

H 

MOV 

A,M 


CLK3 


ORA A 

JZ CLK4 

OCR M 

JNZ CLK4 

LDA DEVCTL 

ANI 0FFH-U0-U1-U2 

STA DEVCTL 

OUT DPDC 

ENDIF 

CLK4: 

IF H37T 

LXl H,DLYM037 

MOV A,M 

ORA A 

JZ CLKRET 

DCR M 

JNZ CLK5 

LDA H37CTL 

ANI OFFH-CONMO 

STA H37CTL 

OUT FD$CON 

CLK5: INX H 

MOV A,M 

ORA A 

JZ CLKRET 

DCR M 

JNZ CLKRET 

LDA H37CTL 

ANI OFFH-CONDSO-CONDS1-CONDS2-CONDS3 

STA H37CTL 

,OUT FD$CON 

ENDIF 

CLKRET: LDA TICCNT 

RAR 

JC CLKR2 

LXI H,DLYW 

MOV A,M 

ORA A 

JZ CLKR2 

DCR M 

CLKR2: POP PSW 

LHLD RETSAV 

PUSH H 

LHLD HSAV 

El 
RET 

CHKLAB: 

XRA A 

MVI B,LABLEN 

LXI H,HSTBUF+LABEL 

CHKLAB1: 

ADD M 

INX H 

DCR B 

JNZ CHKLAB1 

INR A 

RET 

CPHLDE: 

MOV A,H 

CMP D 

RNZ 

MOV A,L 

CMP E 

RET 

DADA: ADD L 

MOV L.A 





RNC 

INR H 

RET 

GETDPE: 

ANI OFH 

MOV L,A 

MVI H,0 

MOV D,H 

MOV E,L 

DAD H 

DAD D 

DAD H 

DAD H 

DAD H 

IF DPEL-24 

%: DPEL NE 24 

ENDIF 

LXI D,DPBASE 

DAD D 

RET 

GETDPEX: 

CALL GETDPE 

LXI D,DPEHTH 

DAD D 

RET 

HLIHL: MOV A,M 

INX H 

MOV H,M 

MOV L,A 

RET 

MOVEITX; 

XCHG 

IF $-MOVEIT 

%: MOVEIT MUST IMMEDIATELY FOLLOW MOVEITX 


MOVEIT; 

ENDIF 

MVI 

A,81H 


ADI 

80H 


JPO 

MOVEIT1 


MVI 

B,0 


DB 

0EDH,0B0H 

MOVEIT1 

RET 

• 

• 



MOV 

A,M 


STAX 

D 


INX 

H 


INX 

D 


DCR 

C 


JNZ 

MOVEIT1 

CONST: 

RET 

CALL 

CONS 


ORA 

A 


RZ 

MVI 

A,0FFH 

CONS: 

RET 

LDA 

lOBYTE 


CALL 

INDXIT 


DW 

TTYSTAT 


DW 

CRTSTAT 


DW 

RDRST 


DW 

CRTSTAT 

RDRST: 

LDA 

lOBYTE 


RRC 

CALL 

GOTOIT 


DW 

TTYSTAT 


DW 

BUSY 


nw 

Mns'raT 


DW CRTSTAT 

CONIN: LDA lOBYTE 

CALL INDXIT 

DW TTYIN 

DW CRTIN 

DW READER 

DW CRTIN 

CONOUT: LDA lOBYTE 

CALL INDXIT 

DW TTYOUT 

DW CRTOUT 

DW LIST 

DW LIST 

LISTST: LDA lOBYTE 

RLC 
RLC 

CALL INDXIT 

DW TTYOS 

DW CRTOS 

DW LPTOS 

DW DBDOS 

LIST: LDA lOBYTE 

RLC 
RLC 

CALL INDXIT 

DW TTYOUT 

DW CRTOUT 

DW LPTOUT 

DW DBD 

PUNCH: LDA lOBYTE 

RRC 
RRC 
RRC 

CALL . GOTOIT 
DW TTYOUT 

DW DMYOUT 

DW MDOUT 

DW CRTOUT 

READER: LDA lOBYTE 

RRC 

CALL GOTOIT 

DW TTYIN 

DW DMYIN 

DW MDIN 

DW CRTIN 

INDXIT: RLC 
GOTOIT: ANI 06H 

XTHL 

CALL DADA 

CALL HLIHL 

XTHL 
RET 

CRTSTAT: 

IF NOT INTINP 

LDA MODE 

RAR 

JC CRTS1 

ENDIF 

IF MODEBO-1 AND (NOT INTINP) 

%: MODEBO NE 1 

ENDIF 

IF (NOT INTINP) 

LXI H,H84PT1 

JMP US 

CRTS1: IN H85CRT+1 


AMT 





RET 

ENDIF 

IF INTINP 

LDA CRTB 

ORA A 

RNZ 

CRTS2: LDA MODE 

RAR 

JNC CRTS2A 

ENDIF 

IF MODEBO-1 AND (INTINP) 

%: MODEBO NE 1 

ENDIF 

IF (INTINP) 

IN H85CRT+1 

ANI 04H 

JZ CRTS3 

MVI A,17H 

OUT H85CRT+1 

JMP CRTS3 

CRTS2A: LDA H84PT1 

INR A 

STA CRTS2B 

MVI A,1 
OUT 0 

CRTS2B EQU $-1 
CRTS3: El 

XRA A 

RET 

ENDIF 

CRTIN; 

IF NOT INTINP 

LDA MODE 

RAR 

JC CRTI1 

ENDIF 

IF MODEBO-1 AND (NOT INTINP) 

%: MODEBO NE 1 

ENDIF 

IF (NOT INTINP) 

LXI H,H84PT1 

CALL UI 

ANI 7FH 

RET 

CRTI1: IN H85CRT+1 

ANI 02H 

JZ CRTI1 

IN H85CRT 

ANI 7FH 

RET 
ENDIF 

IF INTINP 

CRTIN1: CALL CRTSTAT 

JZ CRTIN1 

DI 

LXI H^CRTB 

DCR M 

LHLD CRTGET 

MOV C,M 

INX H 

MOV A,L 

PUSH B 

LXI B,CRTBND 

CMP C 

POP B 








JlNZi 



LXI 

H,CRTBUF 

CRTIN2: 

SHLD 

El 

CRTGET 


MOV 

RET 

A,C 

CRTISR: 

SHLD 

HSAV 


POP 

H 


SHLD 

RETSAV 


PUSH 

PSW 


LXI 

H,0 


DAD 

SP 


SHLD 

OLDSP 


LXI 

SP,LCLSTK 


LXI 

H,H84PT1 


MVI 

A,2 


CALL 

PINX 


CPI 

0100B 


JNZ 

ENDIF 

CRTIS6 


IF 

BRKKEY AND (INTINP) 


MVI 

A,5 


CALL 

PINX 


ANI 

lOH 


JNZ 

ENDIF 

CRTIS8 

/ 

IF 

(INTINP) 

CRTIS1: 

CALL 

UI1 


ANI 

7FH 


PUSH 

PSW 


LDA 

CRTB 


CPI 

CRTLEN-4 


JC 

CRTIS2 


PUSH 

B 


PUSH 

D 


MVI 

C,BELL 


CALL 

CRTOUT 


POP 

D 


POP 

B 


LDA 

CRTB 


CPI 

CRTLEN 


JZ 

CRTIS5 

CRTIS2: 

POP 

PSW 


LHLD 

CRTPUT 


MOV 

M,A 


INX 

H 


MOV 

A,L 


PUSH 

B 


LXI 

B,CRTBND 


CMP 

C 


POP 

B 


JNZ 

CRTIS3 


LXI 

H,CRTBUF 

CRT!S3: 

SHLD 

CRTPUT 


LXI 

H,CRTB 


INR 

M 

CRTIS4: 

LHLD 

SPHL 

OLDSP 


POP 

PSW 


LHLD 

RETSAV 


PUSH 

H 


LHLD 

El 

RET 

HSAV 

CRTIS5: 

POP 

PSW 



m T r> A 






H85CRT+1 


CRTIS6: IN 

ENDIF 

IF BRKKEY AND (INTINP) 

ANI 2OH 

JNZ CRTI11 

ENDIF 

IF (INTINP) 

IN H85CRT 

JMP CRTIS1 

ENDIF 

IF BRKKEY AND (INTINP) 

CRTIS8: CALL UI1 

LXI D,6000 

CRTIS9: MVI A,5 

CALL PINX 

ANI 9 

JNZ CRTIS8 

DCX D 

MOV A,D 

ORA E 

JNZ CRTIS9 

CALL UI1 

CRTI10: LXI H,CRTBUF 

SHLD CRTGET 

SHLD CRTPUT 

XRA A 

STA CRTB 

ENDIF 

IF H17T AND (BRKKEY) AND (INTINP) 

CALL RESH17 

ENDIF 

IF (BRKKEY) AND (INTINP) 

ENDIF 

IF H37T AND (BRKKEY) AND (INTINP) 

CALL RESH37 

ENDIF 

IF (BRKKEY) AND (INTINP) 

ENDIF 

IF H47T AND (BRKKEY) AND (INTINP) 

CALL RESH47 

ENDIF 

IF (BRKKEY) AND (INTINP) 

ENDIF 

IF XEBT AND (BRKKEY) AND (INTINP) 

CALL RESXEB 

ENDIF 

IF (BRKKEY) AND (INTINP) 

CALL FLUSH1 

El 

JMP BOOT 

CRTI11: IN H85CRT 

MVI A,17H 

OUT H85CRT+1 

LXI D,6000 

CRTI12: IN H85CRT+1 

ANI 22H 

JNZ CRTI11 

DCX D 

MOV A,D 

ORA E 

JNZ CRTI12 

IN H85CRT 

JMP CRTI10 

ENDIF 


(INTINP) 





CRTOUT 

: CALL 

CRTOS 


ORA 

A 


JZ 

CRTOUT 


LDA 

RAR 

MODE 


JC 

CRT01 


IF 

MODEBO-1 

%: 

MODEBO 

ENDIF 

NE 1 


JMP 

UO 

CRT01: 

PUSH 

H 


INX 

H 


INX 

H 


MOV 

RAL 

A,M 


POP 

H 


MOV 

A,C 


CC 

MUC 


OUT 

H85CRT 


JMP 

POUT2 

TTYIN: 

LXI 

H,H84PT2 


CALL 

UI 


ANI 

RET 

7FH 

TTYSTAT 

':LXI 

H,H84PT2 


JMP 

US 

TTYOUT: 

CALL 

TTYOS 


ORA 

A 


JZ 

TTYOUT 


JMP 

UO 

LPTOUT; 

LDA 

DCLPOS 


ORA 

A 


JNZ 

LPTOU2 

LPTOUl: 

CALL 

LPTOS 


ORA 

A 


JZ 

LPTOU1 

LPTOU2: 

LXI 

H,H84PT3 


LXI 

D,LPTCTS 


XRA 

A 


STA 

DCLPOS 


JMP 

UO 

DBD: 

CALL 

DBDOS 


ORA 

A 


JZ 

DBD 


CALL 

UO 


LXI 

H, HSCNT 


DCR 

M 


CPI 

01BH 


MOV 

A,M 


JNZ 

DBDI 


CPI 

RNC 

2 


MVI 

RET 

M,2 

DBD1 ; 

ORA 

A 


RNZ 



MVI 

A,1 


STAX 

D 


RET 


HSCNT: 

DB 

32 

MDIN: 

LXI 

H,H84PT4 


JMP 

UI 

MDSTAT: 

LXI 

H,H84PT4 


JMP 

US 

MDOUT: 

CALL 

MDOS 





MDOS: 

TTYOS: 

CRTOS: 

CRTOS1: 

CRTOS2: 

CRTOSB: 
CRTOS3: 

CRTOS4: 

LPTOS: 


LPTOSO; 

LPTOS 1 : 



A 

JZ 

MDOUT 

JMP 

UO 

LXI 

H,H84PT4 

LXI 

D,MDCTS 

JMP 

CRTOS1 

LXI 

H,H84PT2 

LXI- 

D,TTYCTS 

JMP 

CRTOS1 

LXI 

H,H84PT1 

LXI 

D,CRTCTS 

LDA 

MODE 

RAR 

JC 

CRTOS3 

CALL 

UOS 

JZ 

CRTOSB 

LDAX 

D 

ORA 

A 

JNZ 

CRTOS2 

DCR 

A 

RET 

DCR 

A 

STAX 

D 

PUSH 

B 

MVI 

C,NULL 

CALL 

UO 

POP 

B 

XRA 

A 

RET 

IN 

H85CRT+1 

RAR 

JNC 

CRTOSB 

LDAX 

D 

ORA 

A 

JNZ 

CRTOS4 

DCR 

A 

RET 

DCR 

A 

STAX 

D 

MVI 

A,NULL 

OUT 

H85CRT 

XRA 

A 

RET 

LXI 

H,H84PT3 

LXI 

D,LPTCTS 

CALL 

UOS 

JZ 

LPTOSB 

MVI 

A, 6 

CALL 

PINX 

MOV 

B,A 

LDA 

MODE 

ANI 

MODEB2 

JNZ 

LPTOSO 

MOV 

A,B 

CMA 


MOV 

B,A 

LDA 

PRTRDY 

ANA 

B 

JZ 

LPTOSB 

LDAX 

D 

ORA 

A 

JNZ 

LPTOS1 

DCR 

A 

STA 

DCLPOS 

RET 

DCR 

A 


OXAA. 

PUSH 

MVI 

CALL 

POP 

LPTOSB: XRA 
RET 

DBDOS: LXI 
LXI 
LDAX 
CPI 
JNZ 
CALL 
JZ 

CALL 

ANI 

SUI 

JNZ 

STAX 

MVI 

STA 

DBDOS1: CALL 
JZ 

LDAX 

ORA 

JNZ 

DCR 

RET 

DBDOS2: INR 
STAX 
PUSH 
MVI 
CALL 
POP 

BUSY: 

DBDOSB: XRA 
RET 

DMYIN: MVI 

DMYOUT: RET 

US: MVI 

CALL 
ANI 
RET 

UOS: MVI 

CALL 
ANI 
RET 

UO: MOV 

POUT: STA 

PUSH 
INX 
INX 
MOV 
RAL 
POP 
MOV 
CC 

POUT1: OUT 

POUT2: CPI 

RNZ 
PUSH 
INX 
INX 
MOV 
POP 
RAR 


u 

B 

C, NULL 
UO 

B 

A 

H,H84PT3 

D, DBDCTS 
D 

2 

DBDOS1 
US 

DBDOSB 

UI1 

07FH 

'F* MOD 32 

DBDOSB 

D 

A,32 

HSCNT 

UOS 

DBDOSB 

D 

A 

DBDOS2 
A 

A 

D 

B 

C, 'C' MOD 32 

UO 

B 

A 

A,'Z'-40H 

A,5' 

PINX 

1 

A,5 

PINX 

20H 

A,M 

POUT1+1 

H 

H 

H 

A,M 

H 

A,C 

MUC 

OOH 

PADCH 

H 

H 

H 

A,M 

H 




07H 


RAR 
RAR 
RAR 
ANI 
RZ 

STAX D 
RET 


UI; 

CALL 

US 


JZ 

UI 

UI1: 

XRA 

A 

PINX; 

ADD 

M 

PIN: 

STA 

PIN1+1 

PIN1: 

IN 

RET 

OOH 

MUC: 

CPI 

RC 

'a' 


CPI 

RNC 

'z'+1 


SUI 

RET 

*a'-*A 

PMSG: 

MOV 

A,M 


ORA 

A 


RZ 

MOV C,A 

PUSH H 

CALL CONOUT 

POP H 

INX H 

JMP PMSG 

HOUT: PUSH PSW 

RRC 
RRC 
RRC 
RRC 

CALL NIBBLE 

POP PSW 

NIBBLE: ANI OFH 

CPI 10 

JM NIBBL1 

ADI 7 

NIBBL1: ADI 30H 

MOV C,A 

JMP CONOUT 

BTMSG: DB CR,LF 

DB 'error during warm boot - PRESS ANY KEY',0 

RDMSG: DB ' READ',0 

WRMSG: DB ' WRITE*,0 

ERRMSG; DB ' ERROR ',0 

CRLF: DB CR,LF,0 

DCLPOS; DB 0 

TTYCTS: DB 0 

CRTCTS; DB 0 

LPTCTS: DB 0 

MDCTS: DB 0 

DBDCTS: DB 0 

IF INTINP 

CRTB: DB 0 

CRTGET: DW CRTBUF 

CRTPUT: DW CRTBUF 

ENDIF 

IF HI7T 

DPB17S: DW 20 

DB 3 

DB 7 

DB 0 

DW 91 




DB 

DB 

DW 

DW 

DPB17X: DW 
DB 
DW 
DW 
DB 
DB 
DW 
DW 

DPB17D: DW 
DB 
DW 
DW 
DB 
DB 
DW 
DW 

ENDIF 

IF 

DPBOSS: DW 
DB 
DW 
DW 
DB 
DW 
DW 

DPBOSD: DW 
DB 
DW 
DW 
DB 
DW 
DW 

DPBODS: DW 
DB 
DW 
DW 
DB 
DW 
DW 

DPBODD: DW 
DB 
DW 
DW 
DB 
DW 
DW 

ENDIF 

IF 

DPBOES: DW 
DB 
DW 
DW 
DB 
DW 
DW 

DPBOED: DW 
DB 
DW 
DW 
DB 
nw 


192 

0 

16 

3 

20 

3,7,0 

191 
63 

192 
0 

16 

3 

20 

4,15,1 

195 

127 

192 

0 

32 

3 

H47T 

26 

3,7,0 

242 

63 

192,0 

16 

2 

26 

4,15,1 

246 

127 

OCOH,OOOH 

32 

2 

52 

4,15,0 

242 

127 

OCOH,OOOH 

32 

2 

52 

4,15,0 

493 

255 

OFOH,OOOH 

64 

2 

H47T AND H47ED 
64 

4,15,0 

299 

127 

OCOH,OOOH 

32 

2 

64 

4,15,0 

607 

255 

OFOH,OOOH 





2 


DW 

ENDIF 

IF 

XLT17: DB 
DB 
DB 
DB 

ENDIF 

IF 

XLTOS: DB 

DB 
DB 
DB 
DB 
DB 

XLTOD: DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 

ENDIF 

HSTACT DB 
HSTWRT DB 
UNACNT DB 
HSTBUF EQU 
CBOOT: DI 

LXI 
LDA 
STA 
MVI 
LXI 
STA 
SHLD 
IF 
LXI 
STA 
SHLD 
ENDIF 
LXI 
MOV 
OUT 

INX 

MOV 

ORA 

JZ 

OUT 

CBTO: LDA. 

ANI 

STA 

LDA 

ORA 

JZ 

LXI 

MOV 

ADI 

STA 

PUSH 

MVI 

CALL 

POP 

CALL 


H17T 

1 ,2,9,10,17,18 
5,6,13,14 
3,4,11 ,12,19,20 
7,8,15,16 

H47T 

1.7.13.19.25 

5.11.17.23 

3.9.15.21 

2.8.14.20.26 

6.12.18.24 
4,10,16,22 

I ,2,19,20,37,38 

3.4.21 ,22,39,40 
5,6,23,24,41,42 
7,8,25,26,43,44 
9,10,27,28,45,46 

II ,12,29,30,47,48 
13,14,31,32,49,50 
15,16,33,34,51 ,52 
17,18,35,36 

0 

0 

0 

$ 

SP,STACK 

DEFIOB 

lOBYTE 

A,MI$JMP 

H, CLOCK 

CLKVEC 

CLKVEC+1 

INTINP 

H,CRTISR 

SERVEC 

SERVEC+1 

H,CTLPRT 

A,M 

H88CTL 

H 

A,M 

A 

CBTO 

H8CTL 

MODE 

OFFH-MODEBO 

MODE 

H8FLAG 

A 

CBT1 

H,H84PT1 

A,M 

3 

OUTH84+1 
PSW 
A,3 

OUTH84 

PSW 

PIN 


JZ 

LDA 

ORI 

STA 

MVI 

OUT 

MVI 

OUT 

MVI 

OUT 

IF 

MVI 

ENDIF 

IF 

MVI 

ENDIF 

OUT 

CBT1: LHLD 

LDA 
CALL 
IF 
LDA 
INR 
STA 
MVI 
CALL 
ENDIF 
LHLD 
LDA 
CALL 
LHLD 
LDA 
CALL 
LHLD 
LDA 
CALL 
LXI 
CALL 
LXI 
MOV 
INR 
RAR 
RAR 
ANI 
JNZ 
MVI 

CBOOT1: CALL 
LXI 
CALL 

CBI: LDA 

STA 
LXI 
, PUSH 
LDA 
MOV 
LDA 
ANI 
IF 
CPI 
JZ 

ENDIF 

IF 

CPI 

JZ 

ENDIF 


CBT1 

MODE 

MODEBO 

MODE 

A,15H 

H85CRT+1 

A,40H 

H85CRT+1 

A,4EH 

H85CRT+1 

NOT INTINP 

A,15H 

INTINP 

A,17H 

H85CRT+1 

CRTBAUD 

H84PT1 

IN8250 

INTINP 

H84PT1 

A 

OUTH84+1 

A,1 

OUTH84 

TTYBAUD 

H84PT2 

IN8250 

LPTBAUD 

H84PT3 

IN8250 

RDPBAUD 

H84PT4 

IN8250 

H,SMSG0 

PMSG 

H,BIOSEND 

A,H 

A 


03FH 

CBOOT1 

A,64 

TYDN 

H,SMSG1 

PMSG 

BBDA 

CBIB 

H,CBI1 

H 

LOGDSK 

C,A 

BBDF 

DPETYPE 

H17T 

DPEH17 

CBH17 

H37T 

DPEH37 

CBH37 





IF 

CPI 

JZ 

ENDIF 

IF 

CPI 

JZ 

ENDIF 

MVI 

CALL 

HLT 

CBI1 : XRA 

STA 
LDA 
XRI 
STA 
LXI 
PUSH 
LDA 
ANI 
MVI 
IF 
CPI 
JNZ 
ENDIF 
IF 
CPI 
JNZ 

. ENDIF 
IF 
CPI 
JNZ 
ENDIF 
IF 
CPI 
JNZ 
ENDIF 
POP 

CBI2: 

XRA 

STA 

LXI 

SHLD 

El 

MVI 

JMP 

SMSGO: DB 

SMSG1: DB 

DB 
DB 
DB 
DB 
DB 
IF 
DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 

IF 

DB 

ENDIF 


H47T 

DPEH47 

CBH47 

XEBT 

DPEXEB 

CBXEB 

C,BELL 

CONOUT 


A 

CBIA 

CBIB 

7CH-78H 

CBIB 

H,CBI2 

H 

BBDF 

DPETYPE 

C,0 

H17T 

DPEH17 

CBH17 

H37T 

DPEH37 

CBH37 

H47T 

DPEH47 

CBH47 

XEBT 

DPEXEB 

CBXEB 

H 


A 

LOGDSK 

H,BIOS 

BBIOS 


A,BT$CD 

GOW 

CR,LF,LF,0 

•K LLL/HEATH/ZENITH XEBIOS(c) CP/M 2.2X' 

VERS/10+*0',(VERS MOD 10)+'0',LEVEL 
* ' MONTH/IO+'O*,{MONTH MOD 10)+'0 *,'/',DAY/10+ 0 

(DAY MOD 10) + '0'//\YEAR/10+'0',(YEAR MOD 10) + *0 
CR,LF 


'FOR' 
H17T 
' H17' 


I 

I 


H37T 
' H37' 


H47T 
' H47' 


XEBT 
' XEBEC' 


I 1>T • 


WRKVARX 

WRKVAR 


CBIA: 

CBIB: 

CBIC: 

CBHl7: 


CBH37: 


UD UXOIvO -—- " ------- —— 

EQU PARTITN OR XEBPART2 OR INTINP OR BRKKEY OR TOD OR EVENT 

EQU WRKVARX OR H37ED OR H47ED 

IF WRKVAR 

DB ' WITH OPTION(S) * 

ENDIF 

IF PARTITN AND (WRKVAR) 

DB ' P' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF XEBPART2 AND (WRKVAR) 

DB ' 2' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF TOD AND (WRKVAR) 

DB 'T' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF EVENT AND (WRKVAR) 

DB ' E' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF INTINP AND (WRKVAR) 

DB 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF BRKKEY AND (WRKVAR) 

DB 'B' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF H37ED AND (WRKVAR) 

DB 'E3' 

ENDIF 

IF (WRKVAR) 

ENDIF 

IF H47ED AND (WRKVAR) 

DB 'E4' 

ENDIF 

IF (WRKVAR) 

ENDIF 

DB CR,LF,0 

DB 1 

DS 1 

DB 0 

IF HI7T 

MVI B,H17ND 

MVI D,(DPEO-DPBASE)/DPEL 

CALL CBTFIL 

MVI A^DFMO 

STA DEVCTL 

LDA CBIA 

ANA A 

CZ RESH17 

RET 
ENDIF 

IF H37T 

LDA CBIB 

CPI 78H 

RNZ 

MVI B,H37ND 




CBH47: 


%: 


CBH471 


CBH472 


CBXEB: 




CALL 

CBTFIL 

MVI 

A,MI$JMP 

LXI 

H,H37ISR 

STA 

H37VEC 

SHLD 

H37VEC+1 

LDA 

CBIA 

ANA 

A 

JZ 

RESH37 

LXI 

H,DLYM037 

XRA 

A 

MOV 

M,A 

INX 

H 

MOV 

M,A 

MVI 

A,CONMO 

STA 

H37CTL 

RET 

ENDIF 


IF 

H47T 

MVI 

B,H47ND 

MVI 

D,(DPE47$0-DPBASE)/DPEL 

CALL 

CBTFIL 

LDA 

CBIB 

ENDIF 

IF 

H47CTL AND (H47T) 

H47CTL 

NE 0 

ENDIF 

IF 

(H47T) 

STA 

H47INS1 

STA 

H470UTC1 

INR 

A 

ENDIF 

IF 

H47CTL+1-H47DAT AND (H4'7 

H47DAT 

NE H47CTL+1 

ENDIF 

IF 

(H47T) 

STA 

H47IND1 

STA 

H470UTD1 

LDA 

CBIB 

CPI 

7CH 

JNZ 

CBH472 

MVI 

B,H47ND 

LXI 

D,DPEL 

LXI 

H,DPE 47 $ 0 +DPEFLAG 

MOV 

A,M 

ORI 

DPEP7C 

MOV 

M,A 

DAD 

D 

DCR 

B 

JNZ 

CBH471 

LDA 

CBIA 

ANA 

A 

CZ 

RESH47 

RET 

ENDIF 

IF 

XEBT 

MVI 

B,XEBND 

MVI 

D,(DPEXE$0-DPBASE)/DPEL 

CALL 

CBTFIL 

LDA 

CBIA 

ORA 

A 

LDA 

CBIB 

JNZ 

CBXEBO 

LDA 

MODE 

ANI 

MODEB5 

LDA 

CBIB 



. 

JZ 



LDA 

ALTPRT 

CBXEBO: 

STA 

INDATP 


STA 

OUTDATP 

. 

STA 

ALTPRT ^ ^ 


INK 

A 


STA 

INSTAP 


STA 

OUTCTLP 


DCR 

A 


CPI 

7CH 


JNZ 

CBXEB2 


MVI 

B,XEBND 


LXI 

D,DPEL 


LXI 

H,DPEXE$ 0 +DPEFLAG 

CBXEB1: 

MOV 

A,M 


ORI 

DPEP7C 


MOV 

M,A 


DAD 

D 


DCR 

B 


JNZ 

CBXEB1 

CBXEB2I 

LDA 

CBIA 


ANA 

A 


JZ 

RESXEB 


LDA 

DPEXE $ 0 +DPEFLAG 


ORI 

DPEASGN 


STA 

DPEXE $ 0 +DPEFLAG 


LHLD 

BBP 


SHLD 

DPEXE$0+DPETRK 


LHLD 

BUPB 

CBTFIL: 

SHLD 

RET 

ENDIF 

DPEXE$0+DPEUPB 


LXI 

H,0 


SHLD 

CBTIA 

CBTFIL1 

• 

• 



PUSH 

B 


PUSH 

D 


LDA 

CBIA 


ANA 

A 


CNZ 

CBTF7 


XRA 

A 


CALL 

CBTFO 


POP 

D 


POP 

B 


LHLD 

CBTIA 


MOV 

A,H 


ORA 

L 


JNZ 

CBTFIL2 


CALL 

CBTF7 


JMP 

CBTFIL1 

CBTFIL2 

• 

• 



MVI 

A,1 

CBTFO: 

STA 

CBTFA 


MOV 

E,B 

CBTF1: 

MOV 

A,C 


CMP 

B 


JC 

CBTF2 


SUB 

B 

CBTF2: 

ADD 

D 


PUSH 

B 


MOV 

B,A 


LDA 

CBIC 


ADD 

A 


ADD 

A 


ADD 

A 


CBTF2A: 

%: 


CBTF3: 


CBTF4; 


CBTF6: 


CBTF7: 


TOD A 

ADD B 

MOV B,A 

PUSH D 

CALL GETDPEX 

XCHG 

LXI H,DPEFLG2-DPEHTH 

DAD D 

MOV A,M 

ANI DPEIMG 

LDA CBTFA 

JNZ CBTF3 

ANA A 

JNZ CBTF4 

PUSH H 

LHLD CBTIA 

MOV A,H 

ORA L 

POP H 

JNZ CBTF2A 

XCHG 

SHLD CBTIA 

XCHG 

INX H 

IF DPEFLG2 +1-DPELUN 

(DPEFLG2+1) NE DPELUN 
ENDIF 

MOV M,B 

CALL CBTF6 

JMP CBTF4 

ANA A 

JZ CBTF4 

PUSH H 

CALL CBTF6 

LHLD CBTIA 

MVI C,DPEHL 

CALL MOVEIT 

POP H 

MOV A,M 

ORI DPEIMG 

MOV M,A 

POP D 

POP B 

INR C 

DCR E 

JNZ CBTF1 

RET 

LDA CBIC 

LXI H,BDMAP 

CALL DADA 

MOV M,B 

LXI H,CBIC 

INR M 

RET 

PUSH B 

PUSH D 

MOV A,C 

add D 

CALL GETDPEX 

SHLD CBTIA 

LXI D,DPEFLG2-DPEHTH 

DAD D 

MOV A,M 

ANI OFFH-DPEIMG 

MOV M,A 







POP 

D 


POP 

RET 

B 

CBTFA 

DS 

1 

CBTIA 

DS 

2 

TYDN: 

MVI 

C,0 

TYDN1: 

SUI 

10 


JC 

TYDN2 


INR 

C 


JMP 

TYDN1 

TYDN2: 

ADI 

10 


PUSH 

PSW 


MOV 

A,C 


ADI 

030H 


MOV 

C,A 


CALL 

CONOUT 


POP 

PSW 


ADI 

030H 


MOV 

C,A 


JMP 

CONOUT 

IN8250: 

MOV 

XCHG 

B,A 


LXI 

H,OUTH84+1 


MVI 

A,3 


ADD 

B 


MOV 

C,A 


MOV 

M,A 


MVI 

A,83H 


CALL 

OUTH84 


INR 

M 


MVI 

A,0FH 


CALL 

OUTH84 


MOV 

M,B 


MOV 

A,E 


CALL 

OUTH84 


MOV 

A,D 


ANI 

. OFH 


INR 

M 


CALL 

OUTH84 


MOV 

M,C 


CPI 

B110 SHR 8 


MVI 

A,3 


JC 

IN821 


ORI 

4 ' 

IN821: 

CALL 

OUTH84 


DCR 

M 


DCR 

M 


XRA 

A 


CALL 

XCHG 

OUTH84 


DAD 

H 


DAD 

H 


DAD 

H 


DAD 

H 

LOOP1: 

DCX 

H 


MOV 

A,L 


ORA 

H 


JNZ 

RET 

LOOP1 

OUTH84: 

OUT 

RET 

0 

CLEN 

EQU 

$-HSTBUF 




IF COLD BOOT CODE IS SMALLER THAN HOST BUFFER, 
THEN FILL OUT 'HSTBUF' WITH DS STATEMENT. 




IF (CLEN-HSTSIZ) SHR 15 

DS HSTSIZ-CLEN 

J OTHERWISE REORG SO RUN-TIME VARIABLES CAN ALSO OVERLAY 
; COLD BOOT CODE. 

ENDIF 

IF NOT ((CLEN-HSTSIZ) SHR 15) 

ORG HSTBUF+HSTSIZ 

ENDIF 


DIRBUF: 

DS 

128 


IF 

H17T 

ALVO: 

DS 

26 

CSVO: 

DS 

32 

ALV1 : 

DS 

26 

CSV1 I 

DS 

32 

ALV2: 

DS 

26 

CSV2: 

DS 

32 


ENDIF 



IF 

H37T 

DPB37$0 

DS 

DPBL 

ALV37$0 

DS 

50 

CSV37$0 

DS 

64 

DPB37$1 

DS 

DPBL 

ALV37$1 

DS 

50 

CSV37$1 

DS 

64 

DPB37$2 

DS 

DPBL 

ALV37$2 

DS 

50 

CSV37$2 

DS 

64 


ENDIF 



IF 

H47T 

ALV47$0 

DS 

77 

CSV47$0 

DS 

64 

ALV47$1 

DS 

77 

CSV47$1 

DS 

64 


ENDIF 



IF 

XEBT 

DPBXE$0 

DS 

DPBL 

ALVXE$0 

DS 

256 


ENDIF 



IF 

XEBPART2 AND (XEBT) 

DPBXE$1 

DS 

DPBL 

ALVXE$1 

DS 

256 


ENDIF 


DPBX: 

DS 

2 

HSTDPB: 

DS 

2 

DMAB: 

DS 

2 

SPT: 

DS 

1 

XLTW: 

DS 

2 

SPTl: 

DS 

1 

XLTW1 : 

DS 

2 

TRACK: 

DS 

1 

SECTOR: 

DS 

1 

SIDE: 

DS 

1 

RWOP 

DS 

1 

LSP: 

DS 

1 

ERRCNT: 

DS 

1 

ERRTYP: 

DS 

1 

TRKPT: 

DS 

2 

SEKDSK: 

DS 

1 

SEKTRK: 

DS 

2 

SEKSEC: 

DS 

1 

HSTDSK: 

DS 

1 

HSTTRK: 

DS 

2 

HSTSEC: 

DS 

1 

SEKHST: 

DS 

1 






UNADSK: 

DS 

1 

UNATRK: 

DS 

2 

UNASI: 

DS 

1 

ERFLAG: 

DS 

1 

RSFLAG: 

DS 

1 

READOP: 

DS 

1 

WRTYPE: 

DS 

1 

DMAADR: 

DS 

2 


IF 

(($-HSTBUF)-CLEN) 


ORG 

ENDIF 

HSTBUF+CLEN 

HSAV; 

DS 

2 

RETSAV: 

DS 

2 

OLDSP: 

DS 

2 


IF 

INTINP 

CRTBUF: 

DS 

40 

CRTBND 

EQU 

$ 

CRTLEN 

EQU 

CRTBND-CRTBUF 


DS 

16 

LCLSTK 

EQU 

ENDIF 

$ 


DS 

32 

STACK 

DS 

0 

BIOSEND 

EQU 

END 

$ 


A> 



